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«^0 

<^1 SW4: SWITCH FOUR (4), WHEN SET TO A ONE (1), Will. 

^"V CAUSE ANY OATA RELATED ERROR TO BE RETRIED. 

^■* THE WRITE RETRY SCHEME CONSISTS OF REWRITING THE RECORD 

o v)4 IN THE SAME SPOT ON TAPE FOUR (4) TIMES, IF 

^* ALL FOUR (4) REPEATS ARE SUCCESSFUL, THE 

* v> * RECORD IS CONSIDERED AS RECOVERED, AND A TAPE 

***■' WRITE ERROR IS LOGGED, IF ANY OF THE FOUR 

*W (4) REPEATS IS UNSUCESSFUL, A SKIP ERASE IS 

* <w DONE, A SUPECTFD BAD TAPE SPOT IS LOGGED 

"00 AT THIS BLOCK AND RECORD NUMBER. AND A SECOND 

"01 RETRY OF FOUR REPEATS IS DONE. IF AFTER F OUR 

*^V (4) RETRIES, THE RECORD CANNOT BE RECOVERED 

V? A NOTIFICATION IS PRINTED, AND TESTING IS 

'04 RESUMED ON THE NEXT RECORD. 

'0:> IF 20C8) BAD TAPE SPOTS ARE FOUND. THE 

Vo SLAVE WILL BE REWOUND AND REMOVED FROM 



SEQ 0016 



*,> 



'.V* 



7 i 



TESTING WITH AN APPROPRIATE MESSAGE PRINTED, 



08 THE READ RETRY SCHEME CONSISTS OF REREADING THE 

; 0^ RECORD UP TO EIGHT TIMES. IF ALL EIGHT REREADS ARE 

"10 BAD, IT IS A HARD ERROR, IF AN* REREAD IS 

7 H SUCCESSFUL, THIS IS A SOFT ERROR. 

*1? IF THE ORIGINAL ERROR IS OF THE NON -RETRr ABLE 

*1* TTPE (IE: ILF.RMR.ILR.NEF.CBUSPE), THE RETRv SCHEME 

.;1 4 IS NOT ENTERED AND A MESSAGE IS PRINTED, 
" 15 

716 SW5: SWITCH FIVE (5) WHEN SET DURING A READ 

? 1 FORWARD OR REVERSE WILL CAUSE THE TAPE 

71S TO CONTINUOUSLY READ THE CURRENT RECORD 

;1" Bt SPACING EITHER FORWARD OR REVERSE AND 

V-0 REREADING THAT RECORD. THIS TAPE MOVEMENT 

..-1 IS CALLED yOZZLING. THERE IS A SOFTWARE 



DELAl EXECUTED BETWEEN EACH SPACE /READ 
OF THE RECORD AND IT MAY BE VARIED Bi 



.,t|f TYPING CONTROL C ON THE TELETiPE DURING 

THE EXECUTION OF THE YOZZLE AND RESPONDING 
'■* TO THE PRINTED REQUEST WITH A SIX (6> 

DIGIT VALUE, THE YOZZLE STALL IS PRESET 
'< * TO A VALUE Of 5000 IN THE PROGRAM TO 



,f PREVENT EXCESSIVE TAPE WEAN. BUT MAY BE 

y° SET TO ANY VALUE THROUGH THE TELETYPE. 

*'.^ SWb-6; THESf THREE (3) SWITCHES CONTROL THE RANDOMIZATION 

;,,' 5 0* OATA AND BLOCK SIZE AND MAi Bt SE T 

'.;J AND RESET AT ANY TIME, THE ACTUAL CHANGE 

:, ' ' Will. TAKE PLACE BETWEEN Hi OCK CYCLES. 

'!' t iiU9t SWITCH NINE (9) WHEN SET Will CAUSE Ail 

1™ AVAILABLE. TAPE UNITS TO BE REWOUND AT 

', ''' THE END Of THE CERENT BLOCK C i Cl E , TESTING 

,4( - WHL BE RE.SUMM) AT A BLOCK COUNT Of 

.''•J* ONE CD WHEN ALL UNITS HAVE REACHED OCT, 

ltd 



C.rnni-.0 TH03-TIU* It'.*: DRT MACYH 30(1046) 07 -MAR -84 14:21 PAGE 15 

CZTEDl :.Pll 07-MAR-84 14:04 sfcQ 0017 

MS 

**«• DW10-13: THESE SWITCHES ARE USED TO CONTROL THE 

■" 4 * ERROR HANDLING TO BE DONE ON THE TAPE 

■** OPERATION DESCRIBED BY SWITCHES 0-3. 

"•'V A, SWITCH TEN (10) WHEN SET TO A ONE 

'M WILL DISALLOW ANY ERROR PRINTOUTS MADE 

**V ON THE OPERATION IN PROGRESS. CATASTROPHIC 

"'->? FAILURES AND INFORMATION PRINTOUTS WILL 

*?» 4 STILL OCCUR. IE: UNIT NOT AVAILABLE, ILLEGAL 






■t. • 



i 4 



"7 * 1 



BOT, DROP OR PICK OVERFLOW, AND EOT REWIND. 



B. SWITCH ELEVEN (11) WHEN SET TO A ONE 
' WILL DISALLOW TH£ CHECKING FOR STATUS 

1 [RRORS ON READ (FORWARD OR REVERSE) OPERATIONS 



■"*>!■ C. SWITCH TWELVE (12) WHEN SET TO A ONE 

•*<?■ WILL DISALLOW THE CHECKING FOR STATUS 

7 *5 ERRORS ON WRITE OPERATIONS. 

7M 

>* 0. SWITCH THIRTEEN (13) WHEN SET TO A ONE 

■*fr* WILL DISALLOW THE CHECKING OF READ 

■>* DATA. THIS SWITCH HAS NO EFFECT ON 

>« STATUS CHECKING. 

*»NOTE THAT WHEN SW11 OR 12 ARE SET. NOT ONL i ARE ERRORS NOT CHECKED, Bl 

♦♦♦THEREFOR USE CAUTION TO ASSURE THAT OPERATIONS ARE NOT UNEXECUTED DUE 

.'/,- * + ++0Q NOT SET SW 11 OR 12 TO A ONE ()), DURING A RETRY SEQUENCE. 

" ;? '' 'H414: SWITCH FOURTEEN ( 14 )WHEN SET TO A ONE CI) WILL 

ZZ* PRINT THE ACCUMULATED READ/WRITE STATISTICS FOR THE SELECTED 

.,:,* SLAVE UNDER TEST AT THE END OF THE CURRENT BLOCK 

.,,-! CfCLE. THE STATISTICS PRINTED ARE THE NUMBER OF BITS 

.',-.*| DROPPED OR PICKED, THE NUMBER OF RETRIES, WRITE ERRORS. 

/^ READ ERRORS, AND DATA ERRORS. 

; 81 SWX55 SWITCH FIFTEEN (15^ WHEN SET TO A ONE, 

; 8 *' WILL CAUSE THE PROGRAM TO HALT ON ANY 

;*|J ERROR DETECTED BY THE OPERATION IN PROGRESS. 

7,gJ I* 7 " BOTH SWITCH TEN (to) AND FIFTEEN (15) 

_'** ARE SET. THE ACTUAL ERROR DETECTED Ull.t. 

;,^ NOT BE PRINTED BUT WILL CAUSE A HALT. 

.',!). XV SWITCH TEN UO) IS RESET BEE ORE PRESSING 

J HH CONTINUE., THt ERROR WHICH CAUSED THE HALT 

™£ WILL BE PRINTED BEFQRt TESTING IS RESUMED, 



e/n Ot TMO? 
CZTEDE.Pli 

>^ 

♦o ; 

800 
801 
8CV 
80? 
804 
80S 
80t* 

80 ' 
806 
80^ 
810 
811 
SU S 
817 
814 
81S 
816 

81 " 
818 
819 
8^0 
8«> 1 

«.>? 
8cM 
8^S 
H.V, 

8^ 

8 50 
8*1 

8Sr 

855 
8 54 
85S 
8 5*> 
H5." 
8 58 
8"* 
840 
8<U 
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SEQ 0018 



9, 



ERROR PRINTOUTS 

THERE ARE THREE TYPFS OF ERROR PRINTOUTS MADE BY 

THE PROGRAM, OPERATION ERRORS, DATA ERRORS, AND CONDITION 

ERRORS, EACH ERROR MESSAGE PRINTED IS PROCEEDED BY A TWO LINE 

HEADER UHICH CONTAINS THE DRIVE NUMBER, SLAVE NUMBER, 

DENSITY, PARITY, AND FORMAT ON THE FIRST LINE, AND THE BLOCK NUMBER, 

RECORD NUMBER, RECORD SI/F. AND ERROR TYPE ON THE SECOND, 

A. OPERATION ERRORS: 

THESE ARE ERRORS WHICH CAN OCCUR AS A 
DIRECT RESULT OF A TAPE OPERATION. 



1, READ/WRITE STATUS ERRORS j 



?.. TAPE POSITION ERRORS: 



THESE ARE DETECTED BY EITHER THE rMGS 
ITSELF OR BY THE MASSRUS CONTROLLER. 
ALL STATUS ERRORS WILL BE REPORTED. 

THESE ARE INDICATED BY AN INCORRECT 
SPACE OR REWIND OPERATION IN WHICH 
TAPE POSITION BECOMES UNRELIABLE, 



8. DATA ERRORS: 



DATA ERROR? UILL OCCUR WHEN TAPE IS 

BEING READ AND THE DATA EROM TAPE DOES 

NOT MATCH THE EXPECTED DATA, WHEN READING 

IN THE REVERSE DIRECTION, THE RECORD NUMBERS 

WILL BE COUNTED DOWN FROM LAST TO FIRST. 

THE CHARACTER NUMBERS IN REVERSE READS WILL 

ALSO BE COUNTED DOWN IN ORDER TO REFLECT 

TAPE POSITION RATHER THAN THE ORDER TRANSFERRED. 

BECAUSE DATA RECORDS CAN BE UP TO FOUR THOUSAND 

CHARACTERS LONG, AN ERROR CONDITION WHICH WILL CAUSE 

THE ENTIRE RECORD TO READ INC0RRECTL1 COULD CAUSE A VERt 

LENGTHY PRINTOUT. THEREFORE, A COUNTER OF SUCCESSIVE 

BAD CHARACTERS IS EMPLOYED. IF TEN (10) CHARACTERS IN 

SUCCESSION ARE BAD. A NOTIFICATION IS PRINTED 

(BAD RECORD) AND THE NEXT TWENTY FIVE (25) CHARACTERS 

ARE SKIPPED BEFORE CHECKING IS RESUMED. IF THE 

BAD RECORD CONDITION OCCURS THREE (.5) TIMES IN ONE 

RECORD. THE REST 0> THE RECORD IS SKIPPED, DOWN 

Til THE LAST TEN itO) CHARACTERS WHICH Will BE 

CHICKED. THE SKIPPING AND RESUMPTION 0> CHECKING 

WltL ONI i BE DONE ON RECORDS WHICH ARE LONG 

ENOUGH TO ALLOW IT. 
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84 5 

84S C, CONDITION ERRORS: (CATASTROPHIC) 

84 o 

84.* THESE PRINTOUTS REFLECT THE STATE OF THE TAPE SYSTEM 

848 EITHER BEFORE OR AFTER AN OPERATION 
84 ^» 

8 '^ 1. EOT: WHEN EOT (END OF TAPE) IS ENCOUNTERED DURING 

8M EITHER A REFD OR WRITE, THE CYCLE IS COMPLFTED 

8 V ON THE SHORTENED BLOCK AFTER WHICH THE SLAVE 

8 ^S WILL BE REWOUND AND FLAGGED AS UNAVAILABLE 

8M FOR TESTING UNTIL ALL SLAVES HAVE REACHED EOT AND 

S^ ARE REWOUND. WHEN THE LAST AVAILABLE SLAVE 

«^ HAS REACHED EOT AND BEEN REWOUND TO BOT, 

8 ^ ' TESTING WILL BE RESUMED ON ALL SLAVES, 

o!>8 

8 ^ *\ ILLEGAL BOT: WHEN A SLAVE ENCOUNTERS BOT DURING 

8 *^ A READ, WRITE, OR SPACE OPERATION. AN FRROR 

8 ^1 IS PRINTED AND THE PROGRAM HALTED. THIS IS 

8 ^J A CATASTROPHIC ERROR. TESTING MAY BE RESUMED 

80S BY PRESSING CONTINUE; EiUT A RESTART IS 

8 ^4 SUGGESTED. 

8t^ 

866 3. NO INTERRUPT RETURNED: EACH TAPE OPERATION SHOULD BE 

** : TERMINATED BY THE SETTING OF AN INTERRUPT IN 

868 THE CPU. IF NO INTERRUPT IS RETURNED WITHIN 

*** THE APPROPIATE TIME. AN ERROR IS PRINTED. 
M > 

8: 1 4, NO MEDIUM ON-LINE: BEFORE AN OPERATION IS ATTEMPTED, 

8; - THE TM05 IS CHECKED FOR MQL . IF IT IS NOT 

8 ' '' SET, AN ERROR IS PRINTED, AND THE PROGRAM STOPPED. 

8 / ; TESTING MAY BE RESUMED BY PRESSING CONTINUE. 
8 ■'% 

8V S, NO BOT ON REWIND: AS EACH SLAVE IS REWOUND A CHECK 

8 IS MAD* TO ASSURE. THAT PROPER POSITION AT BOT 

8,8 IS ESTABLISHED. IF BOT IS NOT SET UPON COMPLETION Of 

8 '* A REWIND, AN ERROR IS PRINTED AND THE PROGRAM 

22? urL L HALT. PRESS CONTINUE TO RESUME TESTING, 

88 * 6. POSITION ERROR: IF POSITION IS LOST DURING A RfcTRi. 

88 ^ A MESSAGE IS PRINTED, THE TAPE REWOUND, 

H8 ? AND REMOVED FROM TESTING UNTIL ALL ARE 

88 •' RESTARTED AT BLOCK ONE . 
H8»-> 

88; <\ BAD TAPE OVERFLOW: IF ^0(8) BAD TAPE SPOTS ARE » OL'NP , 

888 A MESSAGE IS PRINTED, THE TAPE REWOUND, 

88 '* AND REMOVED FROM TESTING UNITLL ARE 

8 '* J RESTARTED AT BLOCK ONE. 

*'*■' 8. HARD READ ERROR: IF ANY HARD READ t MROR IS ENCOUNTERED 

8 *' DURING A RETRY, A MESSAGE IS PRINTED 

8<: > 4 HtGARDUSS Of THE SETTING Of SU10. 

8> *}> NON-HLlRlAkiLt: i* ANl NUN RETHHUJLE i RHOR i\ fcNC^UNMKl \ * 

8 / ' MESSAGE IS PRINTED REGARDLESS OK THE StTUNG C* SWU\ 

O 7v 



I- -I ' 1 



c/no\ .pii 
ooi 

90? 
4<..4 

90 ' 
908 
909 

Q10 

■ui 
912 
915 

<U4 
41 s 

9 Us 

91 ' 

914 
9 t ?0 
9.7 1 
9.\? 

925 

4J>4 
9 t -*S 
92t> 

92 7 

92d 
9.-9 

931 
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D, EXAMPLES: 
GLOSSARY: 



BN 
RN 
RS 
WE 
RE 
SE 
TM 

f - 

R * 

CS1 

wc 

BA 
f'C 
CS2 

DS 
ER 

AS 
CK 
DB 
MR 
DT 
SN 
IC 
*F 
*P 
*D 



CURRENT BLOCK NUMBER 

CURRENT RECORD NUMBER 

RECORD SIZE, IN FRAMES 

WRITE STATUS ERROR 

READ STATUS ERROR 

SPACE ERROR 

TAPE MARK 
FORWARD 
REVERSE. 

• RH/TE16 CONTROL REGISTER 
RH WORD COUNT 

RH BUS ADDRESS 
TE16 FRAME COUNT 

• RH CONTROLLER STATUS 
TE16 DRIVE STATUS 
TE16 ERROR REGISTER 
ATTENTION SUMMARY 
TE16 CHECK CHARACTER 
RH DATA BUFFER 

TE16 MAINTENENCE REGISTER 
DRIVE TYPE 
SERIAL NUMBER 
TESI CONTROL 
FORMAT 



TE16 

TE16 

[Elb 

DATA 

PARITY 

Df-NSIM 



♦ PATRN ■-= DATA PATTERN NUMBER (_ R -< RANOUM) 



1,' 



C7TLDE0 TN05 Tt 1* lU/r DRT 
C/TE.m .PI I 07-MAR-84 i4}04 

^54 

95 S 

95^ 

tj< - 

95^ 
*M0 
94 l 
942 

94 5 
■■#4.1 

94 r, 

94 * 

448 
>-»40 

QSO 
951 

952 

95 5 

954 
955 

956 

95/ 

956 
959 
960 

9*>i 
9*>2 

96 3 
9M 

9t?6 
<>r» ' 

9r»9 

v» :o 

971 

9.V 
9/3 

9/4 
9/5 
'1 '*» 
9/ .' 
9/tt 
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SEQ 0021 



EXAMPLE 1: IN THIS EXAMPLE SLAVE 1 ON TM03 WAS 
OPERATING AT 1600 BPI IN ODD PARITY USING 
THE NINE CHANNEL NORMAL OATA FORMAT. A 
WRITE STATUS ERROR WAS DETECTED. THE BAD 
STATUS INDICATES THAT AN UNCORRECTABLE DATA 
ERROR (BIT 6 OF ER) AND A PE FORMAT ERROR 
(BIT 7 OF ER) OCCURED DURING THE WRITE 
OPERATION OF THE SIXTH (6) RECORD OE THE 
FIFTY (50) RECORDS IN BLOCK C2). THE 
SIZE OF" THE RECORD WAS TUO HUNDRED (200) 
FRAMES. THE CHECK CHARACTER REFLECTS THE BAD 



TRACK 



DRIVE NO, *SLAVE NO. 1 *D 4 *P *F 14 *PATRfo \ 

*BN 2 »RN 6-50 *RS - 200 *WE 

CS1 144260 

CS2 100 

DS 150640 

ER 300 

WC 

CK 4 

EXAMPLE 2; IN THIS EXAMPLE SLAVE 3 ON TM03 1 WAS 
OPERATING AT 800 BPI IN EVEN PARIH USING 
THE NINE CHANNEL NORMAL DATA FORMAT. A 
READ STATUS ERROR WAS DETECTED DURING 
THE REVERSE READ OF THE TENTH (10) 
FcCORD OF THE 25 RECORDS IN THIS BLOCK ( 1JM . 
THE SIZE OF THE RECORD IS TWENTY (20) FRAMES. 
THE PRINTOUT INDICATES THE DETECTION OF A 
VERTICAL PARITY ERROR ( VPE : BIT 6 OF" ER) AND A 
CYCLIC RFDUNDENCY ERROR (CRC: BIT 15 OF ER). 
THE CRC CHARACTER. AS RECEIVED. IS NOT 
AS EXPECTED AND IS PRINTED SHOWING BOTH 
THE ACTUAL (FIRST) AND THE EXPECTED (LAST), 



DRIVE NO. 2 
♦BN 12 ♦RN 
CS1 144.-V6 
CS2 100 
DS ISOhOO 
ER 100100 
WC 
CRC "to" -7 77 



♦SLAVE 

io i 



NO. 5 »0 UP 1 4V 14 *PATRN 3 

R 



*RS 20 *RE 



CZTEOfc .Pll 

98.? 
985 
984 

^8_> 
98f 

^8/ 

988 
98^> 
990 
Ml 

q^ : 
9Q*, 
994 
>V', 
99r^ 

9^: 

9^\H 

1000 

1001 
100.? 

:oo*- 

! 004 

:oos 

100*.- 

loo ;• 

1008 
1 009 

IClvi 

1011 
101/ 
101* 

1014 
1C1S 
10 In 

:oi* 

101'* 
1 , < 



iv^ 



*.-'t 



n u> hi;: dri 
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SEQ 0Q22 



EXAMPLE 3: IN THIS EXAMPLE, THE HEADER IS THE SAME AS 
IN EXAMPLE TWO C2) EXCEPT THAT THE ERROR TYPE 
REELECTS A READ ERROR IN THE FORWARD 
DIRECTION. IT IS NORMAL TOR THE SYSTEM 
TO DETECT AN ERROR IN THE FORWARD AND 
REVERSE DIRECTION AT THE SAME RECORD. 
REMEMBER THAT IN REVERSE OPERATIONS THE 
RECORD NUMBER IS COUNTED DOWN SO THAT 
RECORD NUMBER TEN CIO) WILL SHOWN IN 
THE PROPER POSITION IN BOTH FORWARD AND 
REVERSE. 



*P 1 *F 14 +PATRN 2 



DRIVE NO. 2 *SLAVE NO 3 *D 3 

*HN 12 *RN 10-25 *RS 20 *RE F 

CS1 144270 

CS2 100 

DS 150600 

ER 100100 

WC 

CRC 76 7-777 



EXAMPLE 4: IN EXAMPLES 2 AND 3 THE READ OPERATION 
RESULTED IN BAD STATUS, HOWEVER THE 
DATA ASSOCIATED WITH THE OPERATION WAS 
NOT BAD (OR WAS NOT CHECKED: SW 13-1). 
THIS EXAMPLE (4) SHOWS A PRINTOUT REFLECTING 
A READ STATUS ERROR ACCOMPANIED B> BAD 
DATA IN CHARACTERS FOUR (4) AND SIX (6). 



DRIVE NO. 2 ♦ SLAVE NO. 3 *D 5 
*BN 12 *RN 10-25 +RS 20 *RE F 
CS1 144270 
CS2 100 

US 150600 
ER 100100 
WC 

CRC 767-7// 
CN 4 

G 11U11U 
H lOUilll 
CN 6 

N 11111111 
B lOUilll 



+P 1 +F 14 +PATRN 2 



C/ 11 1)1 1^05 
C^Tl-.Dt .Pll 

u\v 
io.\s 

1050 
1051 
10.V 
1055 
1054 
1055 
105^ 
105 7 
1058 

105 * 
1040 
1041 
104.? 
104 5 
1044 
1045 
1046 
104 7 
1048 
104Q 
1050 
1051 
105.? 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1000 

:or\i 
io^.: 

106 5 
1064 

1065 
1066 
106 7 
106H 
106 1 "* 
10 70 
1071 



u it. w:: dri 
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EXAMPLE 



SEQ 0023 



5: THIS EXAMPLE SHOWS A READ DATA ERROR 
WHICH OCCURRED, WITHOUT AN ACCOMPANING 
STATUS ERROR, WHICH RESULTED IN A BAD RECORD. 



DRIVE NO. 5 
*BN 100 *RN 
CN 

g mum 

b oooooooo 

CN 1 

G 11111111 

B 00000000 
CN 2 

g mum 

B OOOOOOOO 
CN 3 

t; mum 

B OOOOOOOO 

CN 4 

g ilium 

B OOOOOOOO 
CN 5 

g mum 

B OOOOOOOO 
CN 6 

g mum 

B OOOOOOOO 
CN 7 

g mum 

B OOOOOOOO 
BAD 



♦ SI AVF 
66-200 



NO. 
*RS 



1 *D 
2000 



4 *P 0*F 
♦OF. F 



14 *PATRN R 



RECORD 



EXAMPLE 6: THF: FOLLOWING f.XAMPl t SHOW*, THfc 
RESULT OF A SPACE OPERATION THAT 
SHOULD HAVE SPACED REVERSE OVER 
AN ENTIRE 100 RECORD Bl 0O< BUT 
WHTCH TERMINATED AT THE END OF' 40 
Rf CORDS. LEAVING A POSITION ERROR OF 



40 



DRIVE NO. S * SLAVE NO, 6 *Q ? *P *F 14 
*BN 5 *RN 100-100 *RS 1000 *SE R 
ERR AMT 40 



c/iim-o imo? 



CZTc.Ot .PI I 


10.'? 


10.* 4 


HVS 


10 7o 


10*'* 


10 '8 


10^ 


1080 


1081 


108? 


108? 


108*1 


108S 


1086 


108 : 


1088 


108^ 


1090 


1091 


109.-: 


109? 


1094 


1095 


1 096 


109; 


1098 


1099 


1100 


1101 


110? 


110? 


1104 


ii or. 


110", 


no: 


1108 


1109 


1110 


nil 


ill? 


in? 


1114 


,11S 


111*. 


Ill / 


111* 


nr* 


nao 



n it. U'/; on) 
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SEQ 0024 



EXAMPLE 7: THIS EXAMPLE REFLECTS AN ERROR DETECTED 
WHILE WRITING A TAPE MARK (. TM) AT THE END 
OF THE CURRENT DATA BLOCK PER OPTION RESPONSE 
TM-1. NOTE THAT THE TM RECORD NUMBER 
IS ONE GREATER THAN THE TOTAL NUMBER OE DATA 
RECORDS IN THE CURRENT BLOCK. 



DRIVE NO. 1 


♦SLAVF 


NO. 


1 


*D ? 


♦ P 





♦f 


14 


♦BN 67 *RN 


101 


-100 


♦RS 


36 


♦WE 


TM 








CS1 144??6 




















CS? 300 




















DS 150604 




















ER 1000 




















WC 





















EXAMPLE 8: THIS EXAMPLE SHOWS TWO (2) PRINTOUTS 
REFLECTING A WRITE RETRY WHICH WAS NOT 
SUCCESSEUL THS FIRST TIME, BUT WHICH 
DID RECOVER ON THE SECOND. 
THE UNSUCCESSFUL RETRY IS LOGGED AS 
A SUSPECTED BAD TAPE SPOT B* ITS 
BLOCK AND RECORD NUMBER. 



DRIVE NO. ♦SLAVE NO. 2 *D 

♦ BN ? ♦ RN 12-^0 +R5 667 *WE 

CS1 144260 

CS? 100 

DS 150640 

ER 100 

WC 

♦♦♦ORIGINAL ERROR*** 



4 *P ♦F 14 ♦PATRN 6 



DRIVE NG. SLAVE NO. ? 

♦BN ? ♦RN 12-20 ♦RS 667 

CS1 144260 

CS? 100 

DS 150640 

ER 100 

WC 

SUSPECT BAD TAPE 

RETR* : 

KhPfj 

Rf COVER* Q 

RETRY i 1 



♦ D 4 

♦WE 



+P *F 14 +PATRN 6 



c/nm o imo5 


C/TEDE.Pil 


1KV 


11.^5 


1 1 24 


1125 


1126 


ik?; 


1128 


112^ 


1150 


1153. 


1152 


1155 


1154 


115S 


115t> 


us; 


H5tf 


115 l > 


1140 


1141 


1142 


1145 


1144 


1145 


114b 


114? 


1148 


1149 


1150 


1151 


lib? 


1155 


1154 


1155 


1156 



n n» ii' /; dhi 

07-NAR-84 14:04 



M2 
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SEQ 0025 



EXAMPLE 9: IF . DURING A WRITE RETRY THE BACKSPACE 
OR THE ERASE OPERATION RESULT IN AN ERROR, 
THE ERROR WILL BE PRINTED AND THE PROGRAM 
HALTED. THIS EXAMPLE SHOWS THE ERROR PRINT 
FOR A SPACE AND AN ERASE (2 EXAMPLES) 

DRIVE NO. 1 ♦SLAVE NO. 1 *0 5 ♦P ♦ F 14 
BN 12 ♦RN 6-64 *RS 500 *SE RTRY 
ERR AMT 1 

DRIVE NO. 1 *SLAVE NO. 1 *D 5 *P +F 14 

♦ BN 12 <RN 8-64 *RS 500 *ERASF. 

CS1 144224 

CS2 100 

DS 150600 

ER 400 

WC 

EXAMPLE 10: THIS EXAMPLE SHOWS THE PRINTOUT FROM 
A REWIND OPERATION WHICH DOES NOT HAVE 
BOT SET AT THE END. 

DRIVE NO. 2 *SLAVE NO. 5 ♦D 3 +P +F 14 
♦BN 66 +RN 15-20 *RS 1O0O 

NOT BOT ON REWIND: HALT 

EXAMPLE 11: THIS EXAMPLE SHOWS THE PRINTOUT MADE WH£N 
THERE IS NO INTffR'JPT RETURNED AT THE END 
OF AN OPERATION. 

DRIVE NO, 7 ♦ SLAVE NO. 7 *0 2 +P 1 *F 14 
♦BN 1 ♦RN 25^26 *RS 1200 
NO INTERRUPT 



N 



C. 



CZTEDEO TM03-TE16/TU77 DRT 
CZTEDE.P11 07 -MAR -84 14:04 

1158 
1159 

lloO 
1161 
1162 
1163 
llo4 
llo5 
1166 
116.* 
1168 
116* 
1 1 /O 
1171 
117? 
1173 
1 1 .'4 
IKS 
1176 
11 '7 
1178 
1179 
1180 
1181 

1182 

1183 

1184 
1185 
118o 
1187 
1188 
1189 
1190 
1191 
119^ 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
120t. 
1207 
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10, STATISTICS PRINTOUT 

THE PROGRAM. THROUGH ITS ERROR CHECKING, 

STATISTICS ABOUT THE PERFORMANCE OF EACH 

THIS INFORMATION IS PRINTED OUT WHENEVER 

FROM END OF TAPE, OR BECAUSE IT IS TO BE 

DUE TO SOME CATASTROPHIC FRROR. (POSITION LOST, BAD TAPE OVERFLOW) 

THE STATISTICS MAY BE PRINTED AT ANY TIME BY SETTING 

SWITCH 14 TO A ONE (1). THIS PRESENTS A PICTURE OF PERFORMANCE 

UP TO THIS TIME. THE STATISTICS WILL BE CLEARED UPON REWIND OF THE 

UNIT: BUT NOT BY SE T TING SW 14. 

STATISTICS PRINT EXAMPLE (A HEADER WILL PRECEED THE STATS) 

3 6 45 
2 



SEQ 0026 



IS ABLE TO GATHER CERTAIN 
UNIT UNDER TEST. 
A UNIT IS REWOUND 
REMOVED FROM TESTING 



DROPS: 





PICKS: 


1 


RETRY: 


1 


WTERR: 


2 


REf WD: 


3 


OFT: 


? 


HARD: 


1 


DEFWD: 





REREV: 


4 


SOFT; 


1 


HARD: 


3 


DEREV: 






2 BAD TAPE SPOTS 

*BN 1 *RN 2 

1 *BN IS *RN 100 



** NOTE 



** DROPS AND PICKS REFLECT CORE BIT 
THE FOLLOWING IS A TABLE OF CORE 



POSITIONS. 

BITS TO TRACK NUMBER 



TRACK NO. 
CORE BIT 



7 6 5 3 9 18 2 
7 6 5 4 3 2 10 



DROPS: NUMBER OF DATA BITS DROPPED: PER CORE EITCSEE NOTE ABOVE) 

PICKS: NUMBER OF DATA BITS PICKED UP: PER CORE BITCSEE NOTE ABOVE) 

RETRY: NUMBER OF WRITE RETRIES 

WTERR; NUMBER OF WRITE ERRORS NOT ASSOCIATED WITH BAD TAPE 

REFWD: NUMBER OF READ FORWARD STATUS ERRORS 

REREV: NUMBER QF READ REVERSE STATUS ERPCS 

SOFT: NUMBER -JF RECOVERED READ ERRORS 

HARD: NUMBER Uf UNRECOVERED READ ERRORS 

[JFFWD: NUMBER OF FORWARD DATA ERRORS WLTH NO 

DfcRLVi NUMBER UF REVERSE DATA ERRORS WITH NO 



ASSOCIATED 
ASSOCIATED 



statu:; 

STATUS 



FRROR 
ERROR 



IV 

CMlDtO TMO* TUt> k'.V DR1 HACUl 30(1046) 0/ MAR -84 14:?1 PAGE 10 1 

C7TF.DI.P11 07-MAR-84 14;04 

Mf SW7: 1 -GENERATE RANDOM CHARACTER COUNT 

M' O-USE FIXED CHARACTER COUNT 

MS 

M* SWh: 1 -GENERATE RANDOM RECORD COUNT 

t^V 0-U5ED FIXED RECORD COUNT 

tCl 

**.V SW5: 1-yOZ/LE ON CURRENT RECORD 

<v\< 0-DO NOT YO/ZLE ON RECORD 

tV4 

«Or» SW4: l-DO WRITE /READ RETRIES 

*„> 0-DO NOT RETRi 

tO<* SW5: l-DO NOT READ FORWARD 

tC^ O-RF.AD FORWARD 

t^l SW?: l-DO NOT READ REVERB 

t^.V O-RFAD REVERSE 

*34 SWI: 1-RfcAD FORWARD FIRST 

*5S O-READ REVERSE FIRST 

t>?' SWOi l-DO NOT WRITE 

<^ O^WRXTt 

t>40 



SfcQ 0014 



C/ltOtO TM05 Hit* U'.V OR! MACU1 30(1 04tO 0/ MAR 84 14:,U PAGE 11 

C**Tl 01 .^11 0.' MAR 84 14:04 ShQ 00ir> 

t-44 SWITCH EXPLANATION AND EXAMPLES: 

MS 

*>4i> SWO-3} THESE SWITCHES ARE USED TO CONTROL THE SEQUENCE 

t»4: OF MAG TAPE OPERATIONS PREFORMED ON EACH AVAILABLE 

^4^ UNIT. THE BLOCK OF DATA DESCRIBED THROUGH 

t"»* THE RESPONSES TO TELETYPE REQUESTS AT INITIAL START 

O-h" WILL BE EITHER WRITTEN OR READ FROM EACH AVAILABLE 

t»M UNIT IN THE ORDER THAT THEY WERE ENTERED. THE SEQUENCE 

*5" OF OPERATIONS IS CALLED A CYCLE. AND WILL BE PERFORMED 

<^3 CONTINUOUSLY UNTIL STOPPED BY THE OPERATOR. WHEN END 

t>r>4 OF TAPE IS REACHED, THE UNIT WILL BE REWOUND AND 

t^ FLAGGED AS UNAVAILABLE FOR TEST UNTIL ALL UNITS HAVE 

*S* REACH EOT, AT WHICH TIME TESTING IS RESUMED ON ALL 

v's ' AVAILABLE UNITS, 
t»SA 

^V» EXAMPUS: 0-3 

fcM A, SW0-0.SWl-0.SW2-l.SW3- 1 

*>t^ WRITE 0N1.1 X RECORDS OF r CHARACTERS 

t»63 

<^>4 H, SWO'O.SWl^O.SWr. 1 -! .SW3-0 

t*^ WRITE THEN BACKSPACE AND READ FQRUARD X RECORDS 

**' C. SWO-O.SWI-O.SW^-O.SWJ-I 

*** WRITE THEN READ REVERSE X RECORDS. 

*>"< D. SWO-O.SWI-O.SW^-O.SWS-O 

*^- WRITE THEN READ REVERSE AND READ FORWARD X RECORDS 



* ; ? E, SWO-0,SWi-l,SW?-O.SW3«0 

WRITE THEN BACKSPACE AND READ FORWARD 1H£H REVERSE 



t>74 
»« 'S 



SWO-l.SWl-O.SW. 1 ' I.SW5-0 
READ TAPE FORWARD X RECORD' 



^.78 

r>v * li. SW0-l.SWlM),SW^-0.SW3'l 
*-» KC READ TAPE REVERSE X RF CORDS 

r> ^"' h , swo • i . sw i «o . sw? -0 , SW3 - 

•'* T ' RFAO TAPF REVERSE THEN *■ ORWARD 

* ,Hr> I. SWU •V,SWl»l,SU. > -0,SU3-0 

'■?<: READ TAPE FORWARD THEN REVERSE 

ho ' 



I), 1 

^1 SW4: SWITCH FOUR (4), UHfcN SET TO A ONt (1), Wit L. 

<^V CAUSE ANY DATA RELATEO ERROR TO BE RETRIED. 

< vV) * THE WRITE RETRY SCHEME CONSISTS OF REWRITING THE RECORD 

o** 4 IN THE SAME SPOT ON TAPE TOUR C4) TIMES. If 

**-' ALL FOUR (4) REPEATS ARE SUCCESSFUL, THE 

^ v> * RECORD IS CONSIDERED AS RECOVERED, AND A TAPE 

***" WRITE ERROR IS LOGGED. IF ANY OF THE FOUR 

*W (4) REPEATS IS UNSUCESSFUL, A SKIP ERASE IS 

* lW DONE, A SUPECTED BAD TAPE SPOT IS LOGGED 

'00 AT THIS BLOCK AND RECORD NUMBER. AND A SECOND 

-'01 RETRY OF FOUR REPEATS IS DONE. I*" AFTER FOUR 

*^V C4) RETRIES, THE RECORD CANNOT BE RECOVERED 

'03 A NOTIFICATION IS PRINTED, AND TESTING IS 

-"04 RESUMED ON THE NEXT RECORD. 

"0'' IF 20C8) BAD TAPE SPOTS ARE FOUND, THE 

Vt* SLAVE WILL BE REWOUND AND REMOVED FROM 

"0" TESTING WITH AN APPROPRIATE MESSAGE PRINTED. 

"08 THE READ RETRY SCHEME CONSISTS OF REREADING THE 

-'0° RECORD UP TO EIGHT TIMES. IF ALL EIGHT REREADS ARE 

"10 BAD, IT IS A HARD ERROR. IF AN* REREAD IS 

7 il SUCCESSFUL, THIS IS A SOFT ERROR. 

■I? IF THE ORIGINAL ERROR IS OF THE NON -RE TRy ABLE 

.'13 TYPE (IE; 1LF,RMR.ILR,NEF,CBUSPE), THE RETRY SCHEME 

.;^ 4 IS NOT ENTERED AND A MESSAGE IS PRINTED. 

?lt> SW5: SWITCH FIVE (5) WHEN SET DURING A READ 

7 1 * FORWARD OR REVERSE WILL CAUSE THE TAPE 

719 TO CONTINUOUSLY READ THE CURRENT RECORD 

•V* Bt SPACING EITHER FORWARD OR REVERSE AND 



::o 



■;.m 



REREADING THAT RECORD, THIS TAPE MOVEMENT 
IS CALLED YOZZLING. THERE IS A SOFTWARE 
DELAY EXECUTED BETWEEN EACH SPACE/READ 
OF THE RECORD AND IT MAY BE VARIED By 
./ 4 TAPING CONTROL C ON THE TELET iPE DURING 

;,--' THE EXECUTION OF THE yOZZLE AND RESPONDING 

4^ TO THE PRINTED REQUEST WITH A SIX (6) 

-" DIGIT VALUE. THE YOZZLE STALL IS PRESET 

.'<* TO A VALUE Of 3000 IN THE PROGRAM JO 

,% 4 PREVENT EXCESSIVE TAPE WEAR. BUT MAY BE 

'*° SET TO ANY VALUE THROUGH THE TELETYPE. 

;*•; SWb-tt: THESE THREE (3) SWITCHES CONTROL THE RANDOMISATION 

4 J 5 Of DATA AND BLOCK SIZE AND MAi Bt SE T 

4 54 AND RESET AT ANY TIME. THE ACTUAL CHANGE 



J ir 



WILL TAKE PLACE BETWEEN BLOCK CYCLE 



bW9: SWITCH NINE (9) WHEN SET wlLl CAUSE rt t { 

; >H AVAILABLE TAPE UNITS TO BE REWOUND AT 

''*"' THE END Of THE CURRENT BLOCK CyCIE. TESTING 

!**- WILL BE FUMJMU) AT A BLOCK COUNT Oh 
< 4 1 

?4> 



ONE U> WMEN ALL UNITS HAVE RE-ACHLD BO I 
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-44 

"4S 

' 4 «» SW10-13; THESE SWITCHES ARE USED TO CONTROL THE 

* 4 ' ERROR HANDLING TO BE DONE ON THE TAPE 

'^ OPERATION DESCRIBED BY SWITCHES 0-3. 

"•V A. SWITCH TEN (10) WHEN SET TO A ONE 

'•"M WILL DISALLOW AMY ERROR PRINTOUTS MADE 

ON THE OPERATION IN PROGRESS. CATASTROPHIC 

'^? FAILURES AND INFORMATION PRINTOUTS WILL 

*^ 4 STILL OCCUR. IE: UNIT NOT AVAILABLE, ILLEGAL 









BOT, DROP OR PICK OVERFLOW, AND EOT REWIND. 



B. SWITCH ELEVEN (11) WHEN SET TO A ONE 

'•** WILL DISALLOW TH£ CHECKING FOR STATUS 

?, >" ERRORS ON READ (FORWARD OR REVERSE) OPERATIONS 

■'^ C. SWITCH TWELVE (12) WHEN SET TO A ONE 

'•**■ WILL DISALLOW THE CHECKING FOR STATUS 

? *3 ERRORS ON WRITE OPERATIONS, 
7r>4 

"** 0. SWITCH THIRTEEN (13) WHEN SET TO A ONE 

•*** WILL DISALLOW THE CHECKING OF READ 

7 * m DATA. THIS SWITCH HAS NO EFFECT ON 

>« STATUS CHECKING, 

7 70 



♦ ♦NOTE THAT WHEN SW11 OR 12 ARE SET, NOT ONL t ARE ERRORS NOT CHECKED, 8'. 
♦♦♦THEREFOR USE CAUTION TO ASSURE THAT OPERATIONS ARE NOT UNEXECUTED DUE 
****QQ NOT SET SW 11 OR 12 TO A ONE U), DURING A RETRY SEQUENCE, 



7 .' ? 

;I? '".W14: SWITCH FOURTEEN ( 14 )WHEN SET TO A ONE (1) WILL 

PRINT THE ACCUMULATED READ/WRITE STATISTICS FOR THE SELECTED 

:,:.* SLAVE UNOER TEST AT THE END OF THE CURRENT BLOCK 

j,^ CfCLE. THE STATISTICS PRINTED ARE THE NUMBER OF BITs 

;■.** DROPPED OR PICKED, THE NUMBER OF RETRIES, WRITE ERRORS, 

.-;■;* REAO ERRORS, AND DATA ERRORS. 

;(jl SWi^; SWITCH FIFTEEN (15) WHEN SET TO A ONE. 

:, tt <" WILL CAUSE THE PROGRAM TO HALT ON ANY 

;*< ERROR DETECTED BY THE OPERATION IN PROGRESS. 

'** lv B0TH SWITCH TEN CIO) AND FIFTEEN (15) 

.{ 8 * ARF SET. THE ACTUAL ERROR DETECTED Wilt 

:**] NOT RF PRINTED BUT WILL CAUSE A HALT. 

!* U SWITCH TEN HO) IS RESET BEFORE PRESSING 

! m CONTINUE., THE ERROR WHICH CAUSED THE HAL I 

^ WILL BE PRINTED BEFQRfc TESTING IS RESUMED, 



c.*ii mo imos 
»o 
»s 

■•*>; 

;*6 

801 

ecv 

805 
804 
80S 
80t> 
80 ' 
808 
80^ 
810 
81 1 
810 
817 
814 
8 IS 
81*j 
61 "■ 
818 
819 

6iY 

8oi 

8JV 
6 t >5 

804 
BJ'S 
8 Of. 

80 * 
808 
809 
8 50 
8M 

H3r.' 

855 
8 54 
85S 
« 5^ 
85.' 
8 58 
8*9 
840 
©41 



n u» U'.*: om 

7 -MAR -64 14;04 
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SEG 0018 



9. 



ERROR PRINTOUTS 



THERE ARE THREE TYPES OF ERROR PRINTOUTS MADE BY 

THE PROGRAM, OPERATION ERRORS, DATA ERRORS, AND CONDITION 

ERRORS, EACH ERROR MESSAGE PRINTED IS PROCEEDED BY A TWO LINE 

HEADER WHICH CONTAINS THE DRIVE NUMBER, SLAVE NUMBER, 

DENSITY, PARITY, AND FORMAT ON THE FIRST LINE, AND THE BLOCK NUMBER 

RECORD NUMBER, RECORD SI7F, AND ERROR TYPE ON THE SECOND, 

A, OPERATION ERRORS: 



THESE ARE ERRORS WHICH CAN OCCUR AS A 
DIRECT RESULT OF A TAPE OPERATION. 



1, READ/WRITE STATUS ERRORS 



2. TAPE POSITION ERRORS 



THESE ARE DETECTED BY EITHER THE TM05 
ITSELF OR Br THE MASSBUS CONTROLLER. 
ALL STATUS ERRORS WILL BE REPORTED. 

THESE ARE INDICATED BY AN INCORRECT 
SPACE OR REWIND OPERATION IN WHICH 
TAPE POSITION BECOMES UNRELIABLE. 



8. DATA ERRORS: 



DATA ERROR? WILL OCCUR WHEN TAPE IS 

BEING READ AND THE DATA FROM TAPE DOES 

NOT MATCH THE EXPECTED DATA. WHEN READING 

IN THE REVERSE DIRECTION, THE RECORD NUMBERS 

WILL BE COUNTED DOWN FROM LAST TO FIRST. 

THE CHARACTER NUMBERS IN REVERSE READS WILL 

ALSO BE COUNTED DOWN IN ORDER TO REFLECT 

TAPE POSITION RATHER THAN THE ORDER TRANSFERRED. 

BECAUSE DATA RECORDS CAN BE UP TO FOUR THOUSAND 
CHARACTERS LONG, AN ERROR CONDITION WHICH WILL CAUSE 
THE ENTIRE RECORD TO READ INCORRECTLY COULD CAUSE A VERY 
LENGTHY PRINTOUT. THEREFORE. A COUNTER Of SUCCESSIVE 
BAD CHARACTERS IS EMPLOYED. IF TEN (10) CHARACTERS IN 
SUCCESSION ARE BAD, A NOTIFICATION IS PRINTED 
(BAD RECORD) AND THE NEXT TWENTY FIVE C 25 ") CHARACTERS 
ARE SKIPPED BEFORE CHECKING IS RESUMED. IF THE 
BAD RECORD CONDITION OCCURS THREE (5) TIMES IN ONE 
RECORD. THE REST OH THE RECORD IS SKIPPED, DOWN 
TO THE LAST TEN I 10 ) CHARACTERS WHICH Will BE 
CHICKED, THE SKIPPING AND RESUMPTION OF CHECKING 
will. ONI i BE DONE ON RECORDS WHICH ARE LONG) 
ENOUGH TO ALLOW IT, 



C/H 01 TM03 n U> Hi/; DR1 MACYU SOUOntO 07 -MAR. 8* 14:21 PAGE 15 
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84 5 
844 

845 C* CONDITION ERRORS; (CATASTROPHIC) 

84 o 

84.* THESE PRINTOUTS REFLECT THE STATE Of THE TAPE SYSTEM 

848 EITHER BEFORE OR AFTER AN OPERATION 
84 ^ 

^ r V l. EOT: WHEN EOT (END OF TAPE) IS ENCOUNTERED DURING 

851 EITHER A REPD OR WRITE, THE CYCLE IS COMPLETED 

85.^ ON THE SHORTENED BLOCK AFTER WHICH THE SLAVE 

853 WILL BE REWOUND AND FLAGGED AS UNAVAILABLE 

854 FOR TESTING UNTIL ALL SLAVES HAVE REACHED EOT AND 

855 ARE REWOUND. WHEN THE LAST AVAILABLE SLAVE 
85?> HAS REACHED COT AND BEEN REWOUND TO BOT, 
85* TESTING WILL BE RESUMED ON ALL SLAVES. 

858 

85^ 2. ILLEGAL BOTs WHEN A SLAVE ENCOUNTERS BOT DURING 

8«->D A READ, WRITE, OR SPACE OPERATION, AN FRROR 

8r*l IS PRINTED AND THE PROGRAM HALTED. THIS IS 

8tC A CATASTROPHIC ERROR. TESTING MA i' BE RESUMED 

863 BY PRESSING CONTINUE? BUT A RESTART IS 

*64 SUGGESTED. 

865 

866 3. NO INTERRUPT RETURNED; EACH TAPE OPERATION SHOULD BE 

**: TERMINATED BY THE SETTING OF AN INTERRUPT IN 

*6* THE CPU. IF NO INTERRUPT IS RETURNED WITHIN 

8'^ THE APPROPIATE TIME, AN ERROR IS PRINTED. 

8; i 4. NO MEDIUM ON-LINE: BEFORE AN OPERATION TS ATTEMPTED, 

8 .{'j THE TM03 IS CHECKED FOR MOL . IF IT IS NOT 

*' ' SET, AN ERROR IS PRINTED, AND THE PROGRAM STOPPED. 

8^4 TESTING MAY BE RESUMED BY PRESSING CONTINUE. 
8 *S 

8/' 5. NO BOT ON REWIND: AS EACH SLAVE IS REWOUND A CHECK 

8 ; ' IS MADE TO ASSURE THAT PROPER POSITION AT BOT 

s ', & IS ESTABLISHED. IF BOT IS NOT SET UPON COMPLETION Of 

** * A REWIND, AN ERROR IS PRINTED AND THE PROGRAM 

880 uilL HALT. PRESS CONTINUE TO RESUME TESTING. 

88 1 

88: 6. POSITION ERROR: I* POSITION IS LOST DURING A RETRi. 

88^ A MESSAGE IS PRINTED, THE TAPE REWOUND, 

H ** AND REMOVED FROM TESTING UNTIL ALL ARE 

H8 ' RESTARTED AT BLOCK ONE. 
H8*> 

"8*' ,\ BAD TAPE OVER* LOW: If 20(8) BAQ TAPE SPOTS ARE » Ol'NO . 

888 A MESSAGE IS PRINTED, THE TAPE REWOUND, 

88'» AND REMOVED FROM TESTING UNITLl ARE 

8'-* u RESTARTED AT BLOCK ONE. 
8<*1 

8*. 8. HARD READ ERROR: IF ANi HARD READ E RROR IS ENCOUNTERED 

H "'' ! DURING A RETRY, A MESSAGE IS PRINTED 

8'* 4 REGARDLESS OF THE SETTING Of SW10. 

*'*' 9» HQN-RLlRlAtiLE; 1* ANl NUN RE TRIABLE ERROR J,S LNC^UN'EKl \ \ 

?/. MbbSAGt IS PRINTED REGARDLESS OK THE StMINu y,V SWitf. 



i-l t "-> 



C/HfM WO 5 U i^ in/ * OR] 
C/THM .Pll 07 -MAR 84 14;04 

^0!> 
U0 t , 

90 ■" 
908 
909 
910 

HI 
^1/ 
915 

■>ri 
9i * 

9.U 
9 t V 
9 t \< 

*VS 

9?6 
9.1 ? 

951 
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SEQ 00*0 



D, EXAMPLES; 
GLOSSARY ; 



BN 

RN 

RS 

WE 

RE 

SE 

TM 

F - 

R » 

CS1 

wc 

BA 
EC 
CS2 

OS 
ER 
AS 
CK 
DB 
MR 
DT 
SN 
TC 

♦ F 
*P 

♦ D 



CURRENT BLOC'< NUMBER 
CURRENT RECORD NUMBER 
RECORD SIZE, IN FRAMES 
URITE STATUS ERROR 
READ STATUS ERROR 
SPACF ERROR 
TAPE MARK 
FORWARD 
REVERSE 

- RH/TE16 CONTROL REGISTER 
RH WORD COUNT 
RH BUS ADDRESS 
TE16 FRAME COUNT 
• RH CONTROLLER STATUS 
TE16 DRIVE STATUS 
TE16 ERROR REGISTER 
ATTENTION SUMMARY 
TE16 CHECK CHARACTER 
RH DATA BUFFER 
TE16 MAINTENENCE REGISTER 

DRIVE TYPE 

SERIAL NUMBER 

TEST CONTROL. 

FORMAT 



TE16 
TE16 

rEib 

DATA 

PARITY 

DENSIM 



♦PATRN « DATA PATTERN NUMBER tR - RANDOM) 



cu.de. o tno5 Tt it* iu: ;• drt 

CTEDt Jni 07 -MAR -64 14;04 

^3 5 
454 
95*> 

93t^ 

H5 • 

^38 
9J*-* 
vMO 

^4 1 

*M/ 

94 3 
■■*4*1 

^4 r > 
94 ti 

94 * 
^4 8 
M4*» 
9S0 
951 
45/ 
953 

95 4 
955 
956 
45 7 
956 
45** 
4^0 
9*1 

4f.;> 

4*3 

9*4 
9r,S 
4»>* 
( 1», * 

9r-. c * 

4/0 
4 7 1 

4 v 

'»;? 

V* .'4 
9/5 
■i ** 
4,'/ 

978 
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SEQ 0021 



EXAMPLE 1: IN THIS EXAMPLE SLAVE 1 ON TM03 WAS 
OPERATING AT 1600 BPI IN ODD PARITY USING 
THE NINE CHANNEL NORMAL DATA FORMAT. A 
WRITE STATUS ERROR WAS DETECTED. THE BAD 
STATUS INDICATES THAT AN UNCORRECTABLE DATA 
ERROR (BIT 6 OF ER) AND A PE FORMAT ERROR 
(BIT 7 OF ER) OCCURED DURING THE WRITE 
OPERATION OF THE SIXTH (6) RECORD OF THE 
FIFTY (50) RECORDS IN BLOCK (2). THE 
SIZE OF THE RECORD WAS TWO HUNDRED (200) 
FRAMES. THE CHECK CHARACTER REFLECTS THE BAD 



TRACK 



♦P +F 14 *PATRN 1 



DRIVE NO. *SLAVE NO. 1 *D 4 
*BN 2 *RN 6-50 *RS ■ 200 *WE 
CS1 144260 
CS2 100 
DS 150640 
ER 300 
WC 
CK 4 



E.XAMPLE 2x IN THIS EXAMPLE SLAVE 3 ON TM03 1 WAS 
OPERATING AT 800 BPI IN EVEN PARITY USING 
THE NINE CHANNEL NORMAL DATA FORMAT. A 
READ STATUS ERROR WAS DETECTED DURING 
THE REVERSE READ Or THE TENTH (10) 
ti'CORD OF THE J5 RECORDS IN THIS BLOCK (1^>. 
THE SIZE OF THE RECORD IS TWENTY ( JO ) FRAMES 
THE PRINTOUT INDICATES THE DETECTION OF A 
VERTICAL PAR ITf ERROR ( VPE : BIT 6 OF ER) AND 
CYCLIC REDUNDANCY ERROR ( CRC : BIT 15 OF ER), 
THE CRC CHARACTER. AS RECEIVED, IS NOT 
AS EXPECTED AND IS PRINTED SHOWING BOTH 



THE ACTUAL (F 



AND THE EXPECTED (LAST") 



DRIVE NO. ? 
♦ RN l. 1 *RN 
CSi 144/ fh 
CSJ 100 
DS 150*00 
ER 100100 
WC 
C«C 76**- 777 



♦ SL AVE NO, $ *0 3 

10 i?5 *RS <?0 *RE R 



4P 1 +F 14 *PATRN S 



c/u.nt o imos-h it* w:; dri 

CZTEDt .PU 0/-NAR84 14:04 

s»se 

981 

*)83 
984 

98t* 

->8: 

989 

990 

9^4 
9^H 
9^ 
94 * 

9^8 

9^» 

1000 

1001 
100,? 
1003 
1 004 
100S 
100b 

loo : 

1008 



v.' I 
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SEQ 0022 



civ 



1 

1011 
01.; 
01* 
014 
CIS 
01*i 
01 ' 

o;* 
oi ■« 



EXAMPLE 



3: IN THIS 
IN EXAMPLE 
REFLECTS A 
DIRECTION. 



EXAMPLE, THE HEADER 15 THF SAMb As 
TWO (2) EXCEPT THAT THE ERROR TYPE 
READ ERROR IN THE FORWARD 
IT IS NORMAL FOR THE SYSTEM 



TO DETECT AN ERROR IN THE FORWARD AND 
REVERSE DIRECTION AT THE SAME RECORD. 
REMEMBER THAT IN REVERSE OPERATIONS THE 
RECORD NUMBER IS COUNTED DOWN SO THAT 
RECORD NUMBER TEN (10) WILL SHOWN IN 
THE PROPER POSITION IN BOTH FORWARD AND 
REVERSE. 



*P 1 *F 14 *PATRN 2 



DRIVE NO. 2 *SLAVE NO 3 *D 3 

*BN 12 *RN 10-25 *RS 20 *RE F 

CS1 144270 

CS2 100 

DS 150600 

ER 100100 

WC 

CRC 76/ -777 

iXAMPLt 4: IN EXAMPLES 2 AND 3 THE READ OPERATION 
RESULTED IN BAD STATUS, HOWEVER THE 
DATA ASSOCIATED WITH THE OPERATION WAS 
NOT DAD (OR WAS NOT CHECKED: SW 13-1). 
THIS EXAMPLE (4) SHOWS A PRINTOUT REFLECTING 
A READ STATUS ERROR ACCOMPANIED B> BAD 
DATA IN CHARACTERS FOUR (4) AND SIX (6). 

DRIVE NO. 2 * SLAVE NO, 3 «D 5 +P 1 *F 14 +PAIRN 2 
*BN 12 +RN 10-2S *RS 20 *RE F 



CS1 



70 



iVc*j 



144, 
CS2 100 
DS 150600 
ER 100100 
WC 

CRC /*>/ -7/ 
CN 4 

G 1 llll 111 
R 10111111 
CN ♦'» 

i; mi in i 

U iOlillll 



C/lliU !*'OS 
C/TLDi .PI I 

uv: 
io.\s 

1050 
1051 
KW 
1055 
1054 
1055 
105o 

105: 

1058 
105 » 
1040 
1041 
104^ 

104 5 
1044 
1045 
1046 
104/ 
1046 
104<J 
1050 
1051 
105c? 
1055 
1054 
1055 
105b 

105 7 
1058 
1C59 
1060 
1061 

106c 

106 5 
1064 
1065 
1 066 
106 7 
1068 
10b^ 
1070 
10 71 



n it> lu.'; dhi 
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EXAMPLE 



SfcQ 0023 



5: THIS EXAMPLE SHOWS A READ OATA ERROR 
WHICH OCCURRED, WITHOUT AN ACCOMPANING 
STATUS ERROR, WHICH RESULTED IN A BAD RECORD. 



DRIVE NO. 5 
♦BN 100 *RN 
CN 

G lltinil 
B OOOCOOOO 
CN 1 

G 11111111 
B 00000000 
CN 2 

G 11111111 
B 00000000 
CN 3 

G 11111111 
B 00000000 
CN 4 

G 11111111 
B 00000000 
CN 5 

G 11111111 
B 00000000 
CN 6 

G 11111111 
B 00000000 
CN 7 

G 11 111 111 
B 00000000 
BAD 



♦ SL AVE 
66-200 



NO. 
*RS 



1 *D 
2000 



4 *P 0+F 



14 +PATRN R 



RECORD 



EXAMPLE. 6; THE FOLLOWING FXAMPlt- SHOW 4 , THE 
RESULT OF" A SPACE OPERATION THAT 
SHOULD HAVE SPACED REVERSE OVER 
AN ENTIRE 100 RECORD BLOCK BUI 
WHICH TERMINATED AT THE I ND OF 40 
RECORDS. LEAVING A POSITION ERROR OF 

DRIVF NO. S ♦ SLAVE. NO. 6 *Q ? *P *F 
*BN 5 *RN 100-10Q +RS 1000 *SE R 
ERR AMI 40 



40 



14 



c/nnto imos 

CZVcDV .Pll 
10'? 

10 m 
10 :s 
io;t> 
10 r; 
w-$ 

10 ;*9 

1080 
1081 

1082 
1085 
1084 
1085 
1086 
108 * 
1088 
108^ 
1090 
1091 
10**2 
109? 
1094 
1095 
1096 
109/ 
1098 
1099 
1100 
1101 
110? 
110', 
1104 
HO r > 
HOh 

no: 
noe 

1109 
1110 

mi 

in? 

1 1 i ? 

1114 
1116 

in / 

1118 

in** 

1120 



n it. m:: du\ 
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SEQ 0024 



EXAMPLE 7: THIS EXAMPLE REFLECTS AN ERROR DETECTED 
WHILE WRITING A TAPE MARK tTM) AT THE END 
OK THE CURRENT DATA BLOCK PER OPTION RESPONSE 
Tfl-1. NOTE THAT THE TM RECORD NUMBER 
IS ONE GREATER THAN THE TOTAL NUMBER OF DATA 
RECORDS IN THE CURRENT BLOCK. 

DRIVE NO. 1 *5LAVF NO. 1 *D 2 *P *F 14 

♦ BN 67 ♦ RN 101-100 *RS 36 *WE TM 

CS1 144226 

CS2 300 

DS 150604 

ER 1000 

WC 

EXAMPLE 8: THIS EXAMPLE SHOWS TWO (2) PRINTOUTS 
REFLECTING A URITE RETRY WHICH WAS NOT 
SUCCESSFUL THE FIRST TIME. BUT WHICH 
DID RECOVFR ON THE SECOND. 
THE UNSUCCESSFUL RETRY IS LOGGED AS 
A SUSPECTED BAD TAPE SPOT BY ITS 
BLOCK AND RECORD NUMBER, 



DRIVE NO. 





♦SLAVE NO. c 


♦D 4 


♦P 


♦F 


14 


♦ PATR 


*BN 2 *RN 


12 


-20 +RS 667 


♦ WE 










CS1 144260 














CS2 100 
















DS 150640 
















ER 100 
















WC 
















♦♦♦ORIGINAL 


ERROR* ♦♦ 












DRIVE NO. 





SLAVE NO. 2 


*D 4 


♦P 


♦E 


14 


+PATRN 


♦BN ? *RN 


12 


-20 +RS 667 


♦WE 











CS1 144260 
CS2 100 
DS 150640 
ER 100 
WC 

SUSPECT BAD 
RETRY : 
RfPT; 
Rt COVER* D 
RtTRT: 1 



TAPE 



C/HOkO 1M05 


C/TEOE.P11 


1122 


1 125 


1124 


1125 


1126 


112; 


1128 


1129 


1150 


1131 


1132 


1155 


1154 


1135 


115b 


113." 


11545 


115*1 


1140 


1141 


114.? 


1145 


1144 


1145 


1146 


1147 


1148 


1149 


1150 


1151 


1152 


1153 


1154 


1155 


1156 



n u> ii'/.' dki 
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S£Q 0025 



C 

c 



EXAMPLE 9; IK , DURING A WRITE RETRY THE BACKSPACE 
OR THE ERASE OPERATION RESULT IN AN ERROR, 
THE ERROR WILL BE PRINTED AND THE PROGRAM 
HALTED. THIS EXAMPLE SHOWS THE ERROR PRINT 
FOR A SPACE AND AN ERASE (2 EXAMPLES) 

DRIVE NO. 1 *SLAVE NO. 1 *D 3 *P *F 14 
BN 12 *RN 8-64 *RS 500 +SE RTRY 
ERR AMT 1 

DRIVE NO. 1 *SLAVE NO. 1 *D 3 fP +F 14 
*BN 12 <RN 8-64 *RS 500 *ERASE 
CS1 144224 



:r>2 



100 



DS 150600 
ER 400 
WC 

EXAMPLE 10: THIS EXAMPLE SHOWS THE PRINTOUT FROM 
A REWIND OPERATION WHICH DOES NOT HAVE 
BOT SET AT THE END. 

DRIVE NO. 2 +SLAVE NO. 3 +D 3 + P *F 14 
♦BN 66 *RN 15-20 *RS 1000 

NOT BOT ON REWIND: HALT 

EXAMPLE 11: THIS EXAMPLE SHOWS THF PRINTOUT MADE WH£N 
THERE IS NO INTriR'JPT RETURNED AT THE END 
OF AN OPERATION. 



DRIVE NO. 7 *SLAVt NO. 7 +D 2 +P 1 
♦BN 1 *RN 25^26 *RS 12Q0 
NO INTERRUPT 



*F 14 



N 






CZTEDEO TM03-TE16/TU77 DRT 
CZTEDE.Pll 07 -MAR -84 14:04 

1158 
1159 
1160 
llt^l 
1162 
lib? 
Ilb4 
llt>5 
1166 
116.' 
116d 
116^ 
11/0 
1171 

1 1 :?. 

1173 
1174 
1 1 ,Ti 
1176 
1177 
1178 
1179 
1160 
1181 
1182 
1183 
1184 
1185 
118o 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
119: 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
l?0t. 
1207 
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SEQ 0026 



10. 



STATISTICS PRINTOUT 



THE PROGRAM. THROUGH ITS ERROR CHECKING. IS ABLE TO GATHER CERTAIN 

STATISTICS ABOUT THE PERFORMANCE OF EACH UNIT UNDER TEST. 

THIS INFORMATION IS PRINTED OUT WHENEVER A UNIT IS REWOUND 

FROM END OF TAPE. OR BECAUSE IT IS TO BE REMOVED FROM TESTING 

DUE TO SOME CATASTROPHIC FRROR. (POSITION LOST. BAD TAPE OVERFLOW) 

THE STATISTICS MAY BE PRINTED AT ANY TIME BY SETTING 

SWITCH 14 TO A ONE (1). THIS PRESENTS A PICTURE OF PERFORMANCE 

UP TO THIS TIME. THE STATISTICS WILL BE CLEARED UPON REWIND OF THE 

UNITj BUT NOT BY SE T TING SW 14. 

STATISTICS PRINT EXAMPLE (A HEADER WILL PRECEED THE STATS) 



DROPS: 


030006 45 


PICKS: 


10000002 


RETRY: 


1 


WTERR: 


2 


REFWO: 


3 


OFT: 


P 


HARD: 


1 


DEFWD: 





REREV: 


4 


SOFT: 


1 


HARD: 


3 


DEREV: 






2 BAD TAPE SPOTS 

*BN 1 *RN 2 

1 *BN 15 *RN 100 

** NOTE *+ DROPS AND PICKS REFLECT CORE BIT POSITIONS. 

THE FOLLOWING IS A TABLE. OF CORE BITS TO TRACK NUMBER. 

TRACK NO, 7 6 5 J 9 1 8 2 
CORE BIT 7 6 5 4 3 2 1 

DATA BITS DROPPEO: PER CORE eiTCSEE NOTE ABOVE) 

DATA BITS PICKED UP: PER CORE BITCSEE NOTE ABOVE) 

WRITE RETRIES 

WRITE ERRORS NOT ASSOCIATED WITH BAD TAPE 

READ FORWARD STATUS 

READ REVERSE STATUS 



DROPS: 


NUMBER 


OF 


PICKS: 


NUMBER 


OF 


RETRY; 


NUMBER 


OF 


WTERR; 


NUMBER 


OF 


REFWD: 


NUMBER 


OF 


REREV: 


NUMBER 


OF 


SOFT: 


NUMBER 


, }T 


HPRD: 


NUMBER 


UF 


OFF WD: 


NUMBER 


OF 


DEREV; 


NUMBER 


OF 



ERP n ~ 

RECOVERED READ ERRORS 
UNRECOVERED READ ERRORS 
FORWARD DATA ERRORS WL1H 
REVERSE DATA ERRORS WITH 



NO ASSOCIATED 
NO ASSOCIATED 



STATUS 
STATUS 



ERROR 
ERROR 



c: 

CO 



i 1 . < 

iOi.O TM05 Hit K'.' : DR1 MACU1 30(1046) 07 -MAR -64 14uM PAGE 03 

EDE .Pll 07 -MAR -84 14j04 

A v * 

Oil U. AUTO SE.QUENCE. 

010 — 

013 

014 HE AUTO SEQUENCE (START AT ADDRESS 040) WILL EXECUTE A 

01^ PREDETERMINED TEST PLAN ON ALL AVAILABLE SLAVES ON EACH 

Ol«* AVAILABLE TM03. THE ONLY OPERATOR RESPONSE IS TO THE TrPFD 

01" REQUESTS FOR THE RH ADDRESS, VECTOR, CONTINUOUS OR SINGLE 

oit* Cycle, and nrz only, au switches remain active and MAt be 

01* USED NORMALLY, HOWEVER THE IDEA IS TO LEAVE AIL SWITCHFS 

000 DOWN AND ALLOW FULL EXECUTION OF THE TEST PLAN FOR 

Si STEM CHECKOUT, 



SbQ 0027 



> ^ ^ 

%.. k. *« 



"* ■* 



Q 



SAKM.E START AT 240(8); AUTO SEQUENCE. 

LOAD ADDRESS 040(8), SET SWITCHES TO ZERO, PRESS START; 



00^ TE!.6 AUTO SEQUENCE TEST 

00? ENTER CONDITIONS IN OCTAi 



030 REGISTER START - 170400(1/0440) 

031 VECTOR ADDRESS - 024CCR) 
030 nr/ ONLY s CO) 

033 AUTO CONT: (1) 

034 

03b THIS EXAMPLE SHOWS AN AUTO SEQUENCE START UlTH THE Mh 

0^ AT BUS AODRESS 170440 AND A VECTOR OF 224 , ALL AVAILABLE 

03' HARDWARE WILL BE TESTED CONTINUOUSLY I*' GOTH NRZ AND PE MODE 

03? 

03^ A'_> EACH TM03 ANO ITS SLAVES ARE FOUND, A DIVIDER I INE OF 

040 ASTERICKS WILL BE PRINTED FOLLOWED B> A PRINTOUT OF THE 

>' 4 l TM03 ANO ITS SLAVES BEING TESTED. AS EACH TM03 AND 

- 4 ITS SLAVES ARE FINISHED, ANOTHER DIVIDER IS POINTED 

^ 4? BEFORE TESTING IS RESUMED ON *Ht NEXT AVAILABLE DRIVE, 

044 

04 f > UHfN All AVAILABLE HARDWARE HA > BEEN TESTED, 

- 4 *-' A PRINTOUT OF ENO Of SEQUENCE Will Bt DONE AND THE 

0* * PROGRAM will EITHER Hrtl f (AuTO CONT • 0) OR RESTART WITH 

<' 4M THE FIRST AVAILABLL UNIT I AUTO CUNT * 1), 
04'* 

050 



CTUOl O I MO 5 It U> I.'.' ' OR! 
CJUDt.Pll 0? MAR 84 I4i04 

1^< 
l.^M 

l.?S * 

l^Si* 

i.>o 
U"^ 

UY * 
1^8 
i^o^ 
1^70 
1*V1 
l^.V 
12?3 
i;V4 

K?" 

luV8 

128v 
l<?84 
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SEQ 00*8 



AUTO SFQUFNCE TFfiT PLAN: 

THF AUTO SEQUENCE WILL EXECUTE BOTH AN NR7 AND A Pt 



CYCLE. EACH CYCLE WILL BE STARTED FROM 
OK VARIOUS DATA PATTERNS INTENDED TO BE 
FOR THAT PARTICULAR MODE, 



HOT AND CONSIST 
WORST CASE 



I. NR/ CYCLF 



SIX (6) 
OF F OUR 

EACH OF 



BLOCKS 



THOUSAND 
THE 



OF ONE HUNDRED (100) RECORDS 
(4000) CHARACTERS FOR 
FOUR DATA PATTERNS. 



PATTERN I: 
PATTERN 10: 
PATTERN 14; 
RANDOM DATA: 



ALL ONES DATA IN Ai 
WALKING ONE/At L ONE 
WALKING ZERO/ALl ZERO 
RANDOM 



FifTES 



e. PE CYCLE; (IF NR/ ONl r 



0) 



SIX BLOCKS Of ONE HUNDRED (.100) RECORDS 
Or FOUR THOUSAND (4000) CHARACTERS EACH » OR 
EACH OF THREE DATA PATTERNS, THEN RANDOM 
DATA BLOCKS TO END OF TAPE. 



PATTERN 10 
PATTERN 14 
PATTERN IS 



RANDOM OATAt 



WALKING ONE/ALL ONE 
WAl KING ZERO' All. /* RO 
THREE 15)0 CHARACTERS, 
THEN COMPLIMENT PATTERN. 
RANDOM 



TWO wM Ail CHARACTERS, ThRF-F. 
REPEATED FQR A FULL BUFFER 



[) 



lVUDLO 1M05 Ti x«. IU.\' DR1 MACU1 301 104fO 0/-MAR 84 i4j«U PAGE ? r * 

CJH.m ,PU 07 MAR tf4 14:04 * 

1*W U\ TESTING PROCEDURES 

1A^> 

1J*0 

1*>U AS PREVIOUSLY STATED THIS PROGRAM CONTAINS NO 

l^V FIXED TESTS. THE ENTIRE TEST CYCLE TO BE EXECUTED 

K>V* IS DESCRIBED BY THE OPERATOR THOUGH RESPONSES TO 

1^*4 TELETYPE REQUESTS FOR PARAMETERS AND CONSOLE SWITCH 

l^>r. SETTINGS FOR OPERATION. THE OPERATION SELECTED WILL 

l^o BE EXECUTED WITH THE PARAMETERS ENTERED CONTINUOUSLY 

l- v »* ON EACH AVAILABLE UNIT. ONE BLOCK AT A TIME, UNTIL 

1-*^ STOPPED BY THE OPERATOR. THE OPERATION MAY BE CHANGED 

K?**» DYNAMICALLY BY CHANGING THE CONSOLE SWITCHES AT ANY 

1300 TIME. THE PROGRAM WILL ATTEMPT TO PERFORM ANY OPERATION 

1301 SET AND THEREFORE CAUTION SHOULD BE TAKEN TO ASSURE THAT 
130^ THE UNIT IS CAPABLE OF PERFORMING AS REQUESTED. FOR 

1*05 INSTANCE, ONE SHOULD NOT ATTEMPT TO PERFORM READ OPERATIONS 

1304 ON A 1APE WHICH HAS NOT BEEN WRITTEN AS THE DATA, IF ANY. 

1305 IS UNPREDICTABLE. HOWEVER, IF A TAPE HAS BEEN WRITTEN WITH 

1306 THIS PROGRAM, IT CAN BE READ AS OFTEN AS DESIRED WITHOUT 
130.* BEING REWRITTEN. THIS IS A GOOD PROCEDURE TO USE FOR 
1306 TESTING TAPE COMPATABILITY . SCOPING OF" TAPE UNITS BECOMES 
130* SIMPLE, BY SETTING THE DESIRED OPERATION AND ITS PARAMETER, 

1310 A UNIT MAY BE CONTINUOUSLY EXERCISED IN ANY MANNER DESIRED. 

1311 BY USTNG THE VARIOUS ERROR CONTROL SWITCHES AND ENTERING 
131c? THE NEEDED STALL, ANY FUNCTION CAN BE SCOPED RATHER 
1313 EASILY. RELIABILITY TESTING CAN BE PREFORMED BY USE 
131h OF THE RAN00MI7ATI0N CAPABILITY. PERHAPS A CYCLE OF 
131*3 RANOOM TESTING MIGHT BE SET UP AND ALLOWED TO RUN 

131>> FOR SOME PERIOD OF TIME, THE STATISTICAL COLLECTION 

131* OF DROPS AND PICKS IS THEN SIGNIFICANT. INTERMITTANT 

131« PROBLEMS CAN BE FOUNO BY SETTING THE DESIRED OPERATION 

131* IN MOTION AND DISALLOWING ERROR PRINTOUTS WHILE ALLOWING 

l ? -0 A HALT ON ERROR. THE ERROR THAT CAUSED THE HALT CAN 

1*^1 BE PRINTED BY RESETTING CONSOLE SWITCH TEN AND PRESSING 

13rV CONTINUE. IF SOME PARTICULAR DATA PATTERN SHOW D fcH 

13^ CAUSING DATA ERROR, USE OF THE Y0/7LE SWITCH mND ITS 

13<:4 ASSOCIATED STALL. WILL TO ALLOW SCOPING OF THIS 

13? , j PARTICULAR RECORD. 

1 3t?6 

13<"'.' AS YOU SEE, THERE ARE MiRIAD TESTING PROCEDURF S WHICH 

13i?« COULD OF PERFORMED, THfr PARAMETERS, TAPF OPERATIONS. ERROR 

1;. J * EXAMINATION AND REPORTING ARE ALL AT YOUR DISCucTlUN, 

1-j? 1 TRY U t YOU'LL LIKfc IX % 
1^35 « 



SEQ 00c >f > 



^ 



CZHDKO IM05 
C/Tt-Ot" .PLl 

1335 
135b 
155* 

1558 
1539 

1540 
1541 
154? 
1545 

1544 
1345 
154t> 
134 ' 

1545 
154^ 

1550 
1351 
1 5 S^ 

1355 
1354 
1355 
135b 
1357 
1353 
1354 
1360 
1361 
136? 
1363 
1364 
1365 
1 366 
1367 
1368 
1 360 
13*0 
1371 
137? 
13 75 
1374 
13 75 
1*5 '6 

137; 
13/a 

13/4 
138C 
1381 

13H;» 

138', 
1 38 j 

1 W. 

1 586 
1 38 ' 

1 <88 

1390 



U lb TU.V UMT 
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.LIST BIN.LOC.SEQ 

.Till F CZTEDEO TM03 -TE 16/TU77 

iDATA RELIABILITY TEST 

{AC-A800E-MC 

|21 FEB 1977 

» J. G.ADAMS 

(REVISED (♦♦B) J.G.ADAMS MAY 

j f ♦ B 

; **B 

i * *B 

{ »*B 

: * »B 



SLQ 0030 



ORT 



1978 



;C • •C) 



M.PAGE FEB 79 



{REVISED JAN 1984 BY J.A.C.HITT 

j(CZTEDD) 



{REVISED FEB 1984 dt 
i(CZTEDE) 



J. HITT 



DINCORRECT RECORD COUNT 

STORED WHEN EOT REACHED ON WRITE 

2)ADJUST STACK PTR ON BAD TAPE OVFLW 

3)ADDED TU77 TEST CAPABILITY 

4)D0ES NOT GENERATE LRC/CRC ON FIRST 

RECORD IN AUTO ACCEPT MODE 



RECORD NUMBERING SYSTEM NOT CONSISTENT 
BETWEEN FORWARD AND REVERSE TAPE MOVEMEN 
FORMAT E°ROR (BIT 4) MADE RETRYABLE 

FIX SO THAT RECORD SIZE CAN BE 
A MAXIMUM OF 10000 OCTAL BYTES 
LONG. THIS IS CONDITIONAL IN 
THAT THERE MUST BE ENOUGH MEMORt 
,0R THE BUFFER, OTHERWISE RECORD 
SIZE WILL BE 4000 OCTAL. THIS 
CORRECTS AID REPORT OCC0001450 

ADD aON/XOFF FUNCTIONALITY FOR 
PRINTOUTS. 



.MCALL 
.Nl 1ST 
.LIST 
.ENABLE 



.IACT11 

MC 

ME 

ABS.AMA 



$E0P , *SAVE , $RESTORE . 5CHAIN 



{CONSOLE SWITCHES- 



jSW15 

i 
{SW14 

iSAXS 

jSU12 

Iswio 

{ 

{ SW9 

; 
tSW8 

{ 
t'iWb 



1-STOP ON ERROR 

^-CONTINUE ON ERROR 
1-PRINT READ/WRITE ST 

0-DO NOT PRINT STATS 
1«D0 NOT CHECK DATA 

O-CHECK DATA 
1-00 NOT CHECK 

O-CHECK WRITE 
1-DO NOT CHECK 

0- CHECK READ 
1-DO NOT PRINT ERROR 

O-PRINT ERRORS 
1 -REWIND TAPE 

0-DO NOT RtUIND 
1-USE RANDOM DATA 

O-USE FIXED 
1-USE RANDOM 

O-USt FIXhD 
1*USE RAND UN 



WRITE ERROR' 
ERRORS 
READ ERRORS 

ERRORS 



DATA PATTERN 
CHARACTER COUNT 

CHMR count 
RECORD COUNT 



^ 



c:u oio 


I NO 3 


CZTLDE . 


Pit 


1.VU 




13<V 




13^3 




13^4 




1 3<J c i 




139t> 




1397 




1398 




13^9 




1400 




1401 




140.^ 




1403 




1404 





it lt> lu*: dhi 
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0-USE FIXED RECORD COUNT 
SW5; 1-YOZZLE ON CURRENT RECORD 

0-00 NOT YOZZLE 
SW4 ; 1-DO BOTH READ AND WRITE RETRIES 

O-INHIBIT RETRIES 
SW3: 1-DO NOT READ FORWARD 

O-READ FORWARO 
SW2: 1*00 NOT READ REVERSE 

O-READ REVERSE 
SW1: 1-READ FORWARD FIR^T 

O-READ REVERSE FIRST 
SWO: 1-DO NOT WRITE 

Q»WRrTE 



SEU 0031 



;IF SWR <15jj00> » 177777 UR NOT AVAILABLE USE SOFTWARE SWITCH REGISTER 



C/Tt 01 IM05 

1.4 0b 

140: 

1408 
1409 
1410 
1411 
141/ 
14 1? 
1414 
141S 
141^ 
141 : 
1418 
1419 
14/0 
14/1 
14// 
14^3 
14 /-l 
14/S 
14/6 

14/; 

14/8 
142Q 

1430 
1431 
14 3/ 
1433 
14 3s 
14 3S 
1436 
14 3"' 
1436 
14 39 
14 40 
1441 
144/ 
144 3 
1444 
144 r > 
1446 
144 ? 
1448 
1449 
141j0 
1451 



n hi Ti.i;: or: 
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TM03-TF.16.TU77 REGISTER BITS**++* ♦ + + * ♦ 



StQ 0032 



jCSl: 

;WC: 

jBA; 

jFC: 

{CS2: 

;0S: 

;F.R; 

;ATS; 

iCCf 

jDB: 

{MR: 

;0T: 

jSN: 

}TCj 



15 ;14 {13 {12 jll 1 10 :09 {08 j07 j06 j05 } 04 5 03 { 0i> {01 }00 { 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

SC {TRt{MCPjSPR{DNAjPSL{A17|A16jRDY{Ifc }FUN}FUN;FUN 5 FUN}FUN{G0 5 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 

U0RD . 

COUNT ; 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

BUS ; 

ADDRESS ; 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

FRAME ; 

COUNT . 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

DLT{WCE{UPE{NED|NEM{PGE}MXF{MDP{OR { IR jCl.RjPAT 5BAI jU2 {Ul ?U0 ; 

1 t i 1 t 1 lERRt 1 i 1 1 j { { ; 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
ATA { ERR ; PIP {MOL { WRL { EOT { SPR } DPR ; DR Y t S5C{ PES j SON ;IDB{E OF ;B0T; SLA; 

;;;;;; t ; i ; 1 ;;; : ; 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
CDE{UNS}OPI{DTE;NEFsCS { FCE jNSG{PE_F j INC { -AT {FMT j CNTjRHR; ILR; ILF : 
CRCj { { { {ITM { } jLRC;VPE{3Pr t 5 BPE{ ; ; ; 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

ATTENTION ; 

SUMMARY ; 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

CHECK j 

CHARACTER : 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

DATA j 

BUFFER ; 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
DB {DB {DB {DB }DG {OB jOH {DB jDB }URT;MM ; OP ; OP ;0P { 0P ;MM ; 

7{b{5;4{5j?;l,OjP ; Cl-K J Cl.K { 4 ; 3 } 2 ; 1 ;G0 { 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

1 { 1 J 5 { 1SPR1 j i } } 1 ; ; 1 ;125{ 75; 4!i; 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX.\ 

SERIAL ; 

NUMBER ; 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXl'XXX 

ACL{FCS{TCW}ENA;SPniOFN}OEN{DEN;FMT{FMrjFMT;EMT:FVN{SSN{SSN;SSNj 

{ J ;0T ; ; 4 ; / ; 1 ; 8 j 4 { / j 1 {PAR, 4 j k > ; ] ; 

jXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



c rt oi o iM03-n it- w:: drt 

CZTEDE.P11 07 -MAR -64 14;04 



1-1 3 
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SbQ 0035 



14r»6 








u^r 








14^8 








14 7t> 




000020 




14;:* 


000020 


023110 




14 78 


000022 


000340 




14 ;^> 








1480 




000004 




1481 




000034 




1432 


000034 


023326 




1483 


000036 


000340 




14 84 




104400 




1485 








C 1) 








V 1 ^ 




000040 




v n 




00004? 




en 


00004? 


000000 




a) 




000046 




en 


000046 


005010 




( n 




000052 




en 


000052 


000000 




en 




ooeo4o 




( \ ) 








I486 








1487 




000060 




1488 


000060 


021050 




1489 


000062 


000340 




1490 








1491 








149? 








149.5 




000176 




1494 


000176 


000000 




14 9 r , 








1496 








149/ 




000200 




1498 


000200 


000137 


00303? 


1499 








1500 




000204 




1501 


000204 


000137 


003250 


150.' 








1505 




000210 




1504 


000210 


005037 


014520 


1500 


000214 


000137 


003256 


1506 








1 50 I 








1508 








1509 




000224 




1510 


000?24 


0212/4 




1511 


000226 


000340 




151? 








151* 








1514 








1515 




000240 




l'.i6 


000.40 


00523/ 


U00/4? 


1517 


000244 


00013? 


003234 



{TRAP CATCHERS*********** 



. *20 

.WORD T10UT 

.WORD 340 

TYPE-IOT 

.*34 

.WORD OCTP 

.WORD 340 

TYPOCWRAP 

jACTll HOOK *********** 
SSVPO. 
. *42 

. WORD 
. -46 

.WORD SENDAD 
. -52 

. WORD 
. -$SVPC 



{SET IOT TRAP TO TTOUT ROUTINE 
{PRIORITY LEVEL 7 

{EQUATE TYPE TO AN IOT INSTRUCTION 

{SET TRAP TRAP TO OCTP ROUTINE 

jEUUATt TYPOCT TO TRAP INSTRUCTION 

{SAVE CURRENT LOCATION CTR 

{SET LOCATION 46 

;SET LOCATION 52 ■> 
{RESTORE LOCATION CTR 



{TTY INTERRUPT VECTOR********** 

. -60 

.WORD T TINT 5 TTi INTERRUPT HANDLER ADDRESS 

.WORD 340 {PRIORITY LEVEL 7 

{SOFTWARE SWITCH REGISTER********* 

{INVOKED IE SWR *15::00> - 177777 OR NOT AVAILABLE 
. -176 
SWREG? .WORD 



{START ADDRESS********** 
. -200 



JMP 

. -204 

JMP 

. -210 
CLR 

JMP 



,TART 



STARTC 



RDf I 
START A 



{ENTER PARAMETERS VIA TTl 

{USE FIXED PARAMETERS? HOLD DATA 



{USE FIXED PARAMETERS} NEW DATA 
{MAG TAPE INTERRUPT VECTOR********** 



. 224 

MTINT 
340 



j MAG TAPE INTERRUPT HANDLER ADDRtSS 



jAutO StUUENa START********** 



. V40 

INC ASUJ> 

JMP 5 TAUT 



j St I AUIU StULENCt HAii 

lGU TO START OF AUTO SEQUtNCt 



c/nm o 


TN03 n 


16- ru: : drt 


cznm . 


Pi I 07 -MAR 84 14; 04 


1519 






1W0 






1521 




000300 


1522 


000300 


005237 013560 


1523 


000304 


000137 003032 


1524 






1525 




000510 


1526 






152/ 






1528 


000510 


1 .'2440 


1529 


0005 1? 


172442 


1530 


000514 


172444 


1531 


000516 


1 .'2446 


153? 


000520 


172450 


1533 


000522 


172452 


1534 


000524 


172454 


1535 


000526 


172456 


1556 


000530 


1/2460 


1537 


000532 


172462 


1538 


000534 


172464 


1534 


000536 


172466 


1540 


000540 


1 724 70 


1541 


000542 


1724 72 


154? 






1543 






1544 






1545 


000544 


172440 


1546 


000546 


000224 


154,' 


000550 


000000 


1546 


000552 


000000 


1549 


000554 


000100 


1550 


000556 


1 74000 


1551 


000560 


174000 


155? 


000562 


026544 


1553 


000564 


032544 


1554 


000566 


000001 


1555 


000570 


000000 


1556 


000572 


000001 


155 7 


000574 


000000 


1558 


0005 /6 


000000 


1559 


000600 


000000 


1560 


000602 


000001 


1561 


000604 


000001 


156,? 


000606 


000001 


1563 


000610 


002000 


1564 


000612 


000010 


1565 


000614 


1/7/76 


1566 


000616 


1//5/0 


3 56 7 


000620 


177560 


1568 


000622 


17 756? 


1569 


OOO*. 24 


1 7 7564 


1570 


000626 


1 7 756* 


15/i 


0006*0 


17/550 


15/;: 


0006 3.* 


1/755,' 


1 5 / '. 


0006 34 


15 V, 24 


1574 


000636 


032561 



/ 
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{SHORT CONVERSATION RESTART******** 



SEG 0034 







. -300 




INC SCVF-'L 




JMP START 




.-510 




;TU16 REGISTER 


CI: 


172440 


UC: 




172442 


BA; 




172444 


F'C: 




172446 


CS: 




1/2450 


DS: 




1/2452 


rR: 




172454 


AS: 




1 72456 


CCj 




1 72460 


DG: 




172462 


MR; 




172464 


OT: 




172466 


SN; 




1/24 70 


TC: 




172472 




jCONSTANTS**** 


REGS : 


1/2440 


VECT: 


224 


OVN: 





UDES: 





RCNT; 


100 


FMCNT 


174000 


BUFMAX: 1 74000 


UDATA 


BUTBEG 


RDATA 


BUFBEG»4000 


PATRN 


1 


ROCMO 





TMEX: 


1 


CRCC: 





INTRF 





SPFl.G 





RSTAl. 


1 


WSTAL 


1 


TSTAL 


1 


Y S T AL 


2000 


RETRY 


10 


PSU 


: 


1 / 7 7 7r, 


SUP 


, 


17 7570 


TKh 


j 


17 7560 


TKf] 


• 


17 756? 


TP« 


j 


17 7564 


TPH 


: 


1 / 7566 


PR 1 


: 


1 / 7550 


PRE) 




1 //55? 


RANHA 1 


is 153f>?4 


RAN 


ISA\ 


/; 03?56i 



jSET SHORT CONVERSATION Fl AG 
{ENTER SHORT PARAMETER LIST 



EQUIVS********** 



STARTING REGISTER ADDRESS V.CS1) 

VECTOR ADORFSS ( RH INTERRUPT) 

DRIVE NUMBER 

UNIT DESCRIPTION C PARITY .DENSI T Y ,UNI X , FORMAT ) 

RECORD COUNTER 

OCTAL IN 



15) OCTAL 



NUMBER OF CHAR (4000) 

MAXIMUM BUFFER SIZE 

START OF WRITE BUFFER 

START OF READ BUFfER 

DATA PATTERN SELECTOR CO 

READ COMMAND 

TAPE MARK FLAG: 1-TM 0*N0 TM 

CRC CORRECTION FLAG (YES»1,NO*0) 

INTERCHANGE READ 1-YES 0-NO 

SINGLE PASS WES 0-NO 

READ STALL. 

WRITE STALL 

TURN AROUND STAl 

102ZLE STAL 

READ RETRY NUMBER 

PROCESSOR STATUS 

CONSOLE SWITCHES 

TTY READ STATUS REGISTER 

TTY READ BUFFER 

TTr PUNCH STATUS REGISTER 

TTY PUNCH OUTPUT REGISTER 

H/S READER STATUS REGlSTfR 

H/'i READER BUM R 

RANDOM NUMBER GENERATOR BASE 

RANDOM NUMBER BUFFER 



TWOS COMPLEMENT 



J/> 



C*' It DEO 


IM03- n lt> IU// DR1 




CZTEDF . 


Pll 07 -MAR -84 14 


04 


15/5 


OOOMO 


000100 




1578 


00064? 


174000 










1579 








1580 


000644 


000000 




1581 


000646 






158? 


000646 


000000 




1585 


000650 


000000 




1584 


00065? 


000000 




1585 


000654 


000000 




1586 


000656 


000000 




1587 


000660 


000000 




1588 


00066? 


000000 




1589 


000664 


000000 




1590 


000666 


ooocoo 




1591 


000670 


000000 




159? 


0006 7? 


000000 




1593 


000674 


000000 




1594 


000676 


oooooo 




1595 


000700 


oooooo 




1596 


00070? 


oooooo 




1597 


000704 


oooooo 




1598 


000 706 


oooooo 




1599 


000710 


oooooo 




1600 


00071? 


oooooo 




1601 


000714 


oooooo 




160? 


000716 


oooooo 




1603 


000 7 ?0 


oooooo 




1604 


000 ??.? 


oooooo 




1605 


000/24 


oooooo 




1606 


0007?6 


oooooo 




1607 


000730 


oooooo 




1608 


00073? 


oooooo 




1609 


000 734 


oooooo 




1610 


0007 36 


oooooo 




1611 


000740 


oooooo 




161? 


00074? 






1613 


00074? 


oooooo 




1611 


000/44 


oooooo 




1615 


000 746 


oooooo 




1616 


000 750 


oooooo 
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I RECORD COUNT SAVE 
{FRAME COUNT SAVE 

AND COUNTERS********** 



SEQ 0035 



RCSMV; 


100 


rcsAVj 


174000 




{FLAGS 


TTNF: 





STFLG. 




TOB: 





TIB: 





TEMPI 





TEMP? 





TEMP3 





EMADDR: 


BLCNTR: 


BBC: 





FOTREC: 


RTRN: 





HDRFL 





STAL: 





PFt G: 





MTCl: 





UNP: 





lMF'Lli 





RPCNT 





RTCNT 





DFRFL 





5ERFL 





BCNT: 





RTU'L 





UPS: 





BOPP: 





BPKP: 





ERSAV 





BTFLG 





BTSTF 





BTPT: 





ERTFI 





ENPF I ( 


> ; 


A St 14* 





ABLCN 


r: 


ASt UCF 


: 


$CNTRL 


-S: 



jTTY ENTRY FLAG 

TTY OUTPUT BUFFER 

TTY INPUT BUFFER 

TEMP STORAGE 

TEMP STORAGE 

TEMP STORAGE 

ERROR MSG ADDRESS STORAGE 

BLOCK COUNTER 

BAD RECORD COUNTER 

EOT FLAG 

INTERRUUPT RETURN STORAGE 

HEADER FLAG 

DELP^. STORAGE 

PRINT FLAG 

MAG TAPE CONT REGISTER BUFFER 

UNIT TABLE POINTER 

TAPE MARK FLAG 

REPEAT COUNTER 

RETRY COUNTER 

DATA ERROR FLAG 

STATUS ERROR FLAG 

BIT COUNTER 

RE^RY FLAG 

UNIT POINTER SAVE 

BITS DROPPED POSTER 

BITS PICKED POIU.cR 

ERROR SAVE l.OC 

BAD TAPE FLAG 

STATISTIC OR1N1 FLAG 

HAD TAPE POINTER 

ERAS* FLAG 

All T LI SFU y\ AG 
AUTO BLOCK COUNTER 
AUTO SEU CONTINUOUS Fl.A'.i 
(XON/XOFF FLAG 



C/H. 01.0 


TM03 11 


J6 HI// ORT 




CZTEDE . 


Pit 07 -MAR -84 14 


04 


lt>ltf 








It* I 4 * 








1620 








1621 


000752 


ooooco 




1622 


000754 


000000 




1623 


000756 


000000 




io;-?4 


000760 


000000 




1625 


000762 


000000 




1626 


000/64 


000000 




162 7 


000766 


000000 




1628 


O0C7 7O 


000000 




!o29 


000772 


177777 




1650 








1631 








1632 








1633 


000774 


001214 




1634 


000776 


001234 




1635 


001000 


001254 




1636 


001002 


001274 




1637 


001004 


001314 




1638 


001006 


001334 




1639 


001010 


001354 




1640 


001012 


001374 




1641 


001014 


001414 




1642 


001016 


001434 




1643 


001020 


001454 




1644 


001022 


0014 74 




1645 


001024 


001514 




164o 


001026 


001534 




164 7 


001030 


001554 




1648 


001032 


001574 




1649 








1650 








1651 








1652 


001034 


001614 




1653 


001036 


001720 




1654 


001040 


002024 




1655 


001042 


002130 




1656 


001044 


002234 




1657 


001046 


00234 




3658 


001050 


002444 




1b59 


001052 


002550 




1660 








1661 








lh62 








1663 








1664 


001054 






1665 


001054 


000000 




1 666 


001056 


000000 




166/ 


001060 


000000 




1668 


00106;* 


oooooo 




1669 


001064 


000000 




16/0 


001066 


oooooo 




16/1 


0010 70 


oooooo 




16 72 


001072 


oooooo 




1673 
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SbQ 0036 



UNI 





UN2 





UN3 





UN4 





UN5 





UN6 





UN ^ 





UN8 





UNX 


-1 




j UNI 


PIK 


l : BPOO 


pik; 


?: BP10 


PIK3: BP<?0 


PIK4: BP30 


PIK5. BP40 


PIK6: BP50 


PIK7 BP60 


PIK< 


3: BP70 


DRP 


1 i BDOO 


DRP, 


?: BD10 


DRP 


5 j BD20 


DRP' 


It BD30 


DRP 1 


S: BD40 


DRP< 


a: BD50 


DRP 


/; BD60 


DRPJ 


3: BD70 




j UNI 


BTA( 


)DRt BTOO 




Broi 




BT02 




BT03 




B104 




BIOS 




BT06 




BT07 



{UNIT ORDER AND DESCRIPTION TABLE'. +♦*♦*♦++*+ 



{THIS TABLE IS LOADED 
sWITH UNIT NUMBERS AND 
THEIR DESCRIPTIONS IN 
THE ORDER THAT THEY 
WILL 3E TESTED 



;UNIT DROPS AND PICKS POINTERS***** * + ♦* 



BAD TAPE POINTERS********** 



iUNlT U'RITt Rl TRy COUNTER********** 

;SE1 START OF STAT 1.>T1CS TABLE 
ST TBI ; 



RTY 1 





RTi2 





RT t * 





R T i 4 





RTil, 





RT !6 





NT t / 





RTY8 






'■> 



C/TMU.O 


imo5 n 


16- w;: ou] 




C/ThOt.. 


Pll 07 -MAR -84 14 


04 


\%> ;<\ 








16 75 








16 76 


001074 


000000 




1^7 7 


0010/6 


000000 




1678 


001100 


000000 




16 -^ 


001102 


000000 




lbSO 


001104 


000000 




1681 


001106 


000000 




168? 


001110 


000000 




168? 


001112 


000000 




1684 








loSS 








1686 








168 7 


001114 


000000 




1688 


001 116 


oooooo 




1689 


001120 


000000 




1690 


001122 


oooooo 




1691 


001124 


oooooo 




1692 


001126 


oooooo 




169? 


001130 


oooooo 




1694 


001132 


oooooo 




3 695 








1696 








169, 








1698 


CD1134 


oooooo 




1699 


001136 


oooooo 




1700 


001140 


oooooo 




1701 


001142 


oooooo 




170c: 


001144 


oooooo 




170? 


001146 


oooooo 




1704 


001150 


oooooo 




1705 


001152 


oooooo 




1 706 








1707 








1/08 








1709 


001154 


oooooo 




1710 


001156 


oooooo 




1711 


001160 


oooooo 




i n? 


001162 


oooooo 




171? 


001164 


00 000 




1/14 


001166 


oooooo 




1715 


001170 


oooooo 




1716 


001172 


oooooo 




1717 








1/18 








1719 








1/20 


0011/4 


oooooo 




1721 


001176 


oooooo 




1 722 


00 1200 


oooooo 




1/23 


001202 


oooooo 




1724 


001204 


oooooo 




i /;?'. 


001206 


oooooo 




i /;>.. 


001210 


oooooo 




17*7 


001212 


oooooo 
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SEQ 0037 



WTfcRl 

UIER2 
WTER3 
WTF.R4 
UTER5 
WTER6 
WTER7 

WTER8 



RDER1 
RDF.R2 
RDF.R3 
R0ER4 
RDER5 
RDER6 
RDER7 
R0ER8 



;UNIT WRITE ERRORS******-**** 



j UNIT READ FORWARD ERRORS********** 



{UNIT DATA ERRORS FORWARD****** **♦ * 



DATER1; 










5UNIT READ REVERSE ERRORS***** ***** 



RDERR1: 











.UNIT DATA ERRORS REVERSE********** 



DEREVli 






o 




c/n-m o 


1M03 n 


H.'lu// DR1 


CZTF.DH. . 


PU 07 -MAR -84 14:04 


17?9 






1730 






1731 


001214 


000000 


173? 




001234 


1733 


001?34 


000000 


1734 




001254 


1735 


001254 


OOOOOC 


1736 




0012 74 


173 7 


001274 


000000 


1738 




001314 


1739 


001314 


OOOOOO 


1740 




001334 


1 74 1 


001334 


OOOOOO 


174? 




001354 


1 74 3 


001354 


OOOOOO 


1744 




001374 


1745 


001374 


OOOOOO 


1746 




001414 


174 7 


001414 


OOOOOO 


1748 




001434 


1749 


001434 


OOOOOO 


1750 




001454 


1751 


001454 


OOOOOO 


175? 




001474 


1753 


001474 


OOOOOO 


1754 




001514 


1755 


001514 


OOOOOO 


1756 




001534 


1757 


001534 


OOOOOO 


1758 




001554 


1759 


001554 


OOOOOO 


1760 




0015 74 


1761 


001574 


OOOOOO 


176? 




001614 


1763 






1"'64 







M 3 
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SEQ 0038 



C2 



;DR0PS ♦ PICKS PER CHANNEL PER UNIT* + *****+*<. 



BPOO. 











♦ 16 


BP10: 









, 3 t 


♦ 16 


BP20: 


6 






, a 


♦ 16 


BP30j 









, " 


♦ 16 


BP40 





♦ 16 


BP50 


6 






, = 


♦ 16 


BP60 











♦ 16 


BP70 











♦ 16 


BDOO 









, = 


♦ 16 


BD10 





♦ 16 


BD20 


6 






s 


♦ 16 


BD30 


6 






, » 


♦ 16 


BD40 


6 






. = 


♦ 16 


B050 









, = 


♦ 16 


BD60 









, = 


♦ 16 


BD70 









, = 


♦ 16 



n;- 



z 



~) 



C/TF.OF.O 


TM03-TF 16/TU7/ DRT 




CZTEDE. 


Pll 07 -MAR -84 14 


04 


1766 








176 7 








1768 








1769 


001614 


000000 




1770 




001720 




1771 


001720 


000000 




1772 




002024 




1/73 


002024 


000000 




1774 




002130 




1775 


002130 


000000 




1776 




002234 




1777 


002234 


000000 




1778 




002340 




1779 


002340 


000000 




1780 




002444 




1/81 


002444 


000000 




1782 




002550 




1783 


00?.S50 


000000 




1784 




002654 




1785 








1786 








1787 








1788 


002654 


000000 




1789 


002656 


000000 




1790 


002660 


000000 




1791 


002662 


000000 




1792 


002664 


000000 




1793 


002666 


000000 




1794 


002670 


000000 




1795 


002672 


000000 




1796 








1797 








1798 








1799 


002674 


000000 




1800 


002676 


000000 




1801 


002 700 


000000 




1802 


002 702 


000000 




1803 


002704 


000000 




1804 


002706 


000000 




1805 


002/10 


000000 




180b 


002712 


000000 




180 7 








1808 








1809 








1810 


002714 


000000 




1811 


002716 


000000 




1812 


002720 


000000 




1815 


002 /22 


000000 




1814 


002724 


000000 




1815 


002 726 


000000 




1816 


002730 


000000 




1817 


002 732 


000000 




1818 
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SEQ 0039 



BTOO 
BT01 
BT02 
BT03 
BT04 
BT05 
BT06 
BT07 



{UNIT BAD TAPE COUNTER; 16 PER SLAVE********** 



. =. >102 



. =. + 102 



. =. +102 



. *. + 102 



.=.+102 



. =. +102 



. =. +102 



.*. +102 



{UNIT END OF TAPE COUNTERS 1 PER SLAVE******* 



EOTCO: 











{UNIT. READ FORWARD SOFT ERROR******* 



RFSOFT; 











iUNIT READ REVERSE SOFT FRROR******* 



RRSOFTi 

O 



o 





CTEDEO 


tmo3 n 16 rv :: dpi 




CZTLDf . 


Pll 07 MAR 84 14 


04 


1820 








1321 








1822 








1823 


002734 


000000 




1824 


002/36 


000000 




1825 


002/40 


000000 




1826 


002742 


000000 




18^: 


002 744 


000000 




1828 


002746 


000000 




i82s> 


002 750 


000000 




1850 


002752 


000000 




1831 








1332 








183? 








1834 


002754 


000000 




1855 


002756 


000000 




185b 


002760 


000000 




185; 


002 762 


000000 




1838 


002764 


000000 




1839 


002 766 


000000 




1840 


0027 70 


000000 




184) 


002772 


000000 




1842 








1843 


0027 74 






1844 








184b 








1846 








1847 


002 ? 74 


002 7 74 




1848 


0027 76 


013772 




184S 


003000 


014132 




1850 


00 3002 


014152 




1851 


003004 


014156 




1852 


003006 


014202 




185? 


003010 


014212 




1854 


00 3012 


014220 




1855 


003014 


014226 




1856 


003016 


014254 




185: 


003020 


014504 




1858 


005022 


014524 




185'> 


003024 


014546 




1860 


005026 


014356 




18^1 


003030 


Q144Q6 




1862 









MACU1 30U046) 7 MAR -84 l4j21 



page s;> 



SEQ 0040 



lUNir READ rORWARU HARD ERROR******* 



RE HARD 1 







































lUNIT PtAD RtVfcRSt 


RRHARD? 





































jStT END OF STATISTICS TAB 


FNOTBL 


» 




(DATA PATTERN GENt 


DAT8L 




OATAO 


DATO 


DATA1 


DAT1 


DATA2 


DAT2 


0ATA3 


QAM 


DATA4 


DAT4 


DATA5 


DAT 5 


DATA6 


DAT* 


DATA7 


DAT > 


DA1AU 


): OAUO 


DATAii 


L: DA Til 


DATAi; 


y t DAT 12 


DATAII 


5: DAT15 


DAfAW 


I: OAT 14 


DATAiJ): DAIib 



HARD ERROR- 



lENTRt TABU 

iPXTfRNAL INPUT FROM H'S READER(5fcb MAINDEC - 1 1 -D/Tyf 

I ALL ONES 

I All Z5R0S 

I WALK I NO ONE 

jWAl KING ZERO 

,Al M RNATING ON* /tRO 

,Al H RNATING /tHODNI 

I Al U RNATING ONt //IPO IN 

lUAl KING ONE 'An ONI IN 

|Ai I HIT'; 577 

} At 1 B I T 5 * 7 / 

1 At n rnating characters and * ' * 

iwAiKTNvt /*R0 AH /FRO IN Al.Tf RNAT INi* CHARACTERS 
lAUIU SEQUENCE PATTERN O t O» •!» - U - U 0.0 



ALU RNATING CHARAC r tR 
Al TERNATING CHARACTERS 



1 
1 1 

{ 1 

f 1 
f 1 

/ 1 



00303? 
003036 



CM I 01 TM05 
C*MUH .Pit 

1 8^4 
18t*5 

18t> ' 
18r8 
18t^ 
18*0 
18*1 
18 V 
18*3 

18M 

18*5 

18: * 
18 '8 
18 VJ 

1880 
1881 

188.: 

1883 
1884 
1885 
1886 
188: 
1888 
188<* 
1890 
18^1 
189c 
1893 
1894 
1895 
1896 
.189 7 
1898 
1899 
1900 
1901 
190? 
1903 
1904 
190 r > 
1906 
190* 
1 ' »08 
1909 
1910 

( 1 ) 

( 1 ) 



n i6 U' 

7 MAR 



'.' DPI 
84 14}04 



00304? 
003046 
003054 
003056 
00306? 
003064 
003066 
003074 

0030 76 
003104 

003110 

00311? 

003116 

005120 

0031?6 
003134 
003140 



1911 



003144 
003146 

005150 
005154 

00 5 1 5b 
005164 
005170 
005W4 
0031 '74 



01? 706 
005037 



013746 
01?73/ 
005000 
00573 7 
005700 
00101? 
01?737 
000406 

01*737 

01?700 
00000? 

013700 
005400 
012737 
01?737 
06003 7 
01?637 



0050? 7 
000000 

005 75/ 

001407 
01?737 

005? 3 7 
0001 5 7 



000500 
000742 



000004 
0030 76 

040000 



170000 



174000 
177777 



000560 

0?6544 
0?6544 
000564 
000004 



00004? 

0001 7b 
00514b 
00 51 /4 



O'l 
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SEU 0041 



f- VI N 

PROGRAM START AND SEQUENCE FORMAT TER: 

THIS ROUTINE 15 USED TO PERFORM ALL HOUSEKEEPING, 

DECIDt WHICH TRANSPORT TO TEST AND ITS AVAILABILI T i , 

LOAD THE WRITE BUFFER WITH THE SELECTED DATA PATTERN, 

GENERATE AN* RANDOM NUMBER ANO THEN EXECUTE 

THE TEST CYCLE REQUESTED BY THE SWITCH SETTING. 

AT THE END OF THE TEST OCl.E THE NEXT UNIT IS SELECTED 

AND CHECKED FOR AVAILABIt ITY AND THE TEST CYCl E IS 

EXECUTED ON IT, 

THE READ WRITE STATS MAY BE PRINTED AT THE E NO OF 

EACH TEST CYCLE VIA CONSOLE SWITCH FQURTEFN (14). 



{START 
START; 



000004 

000560 
000560 



200, 6 300*4******* 
MOV ©500, SP 
CLR ASEQF 
j **JACH>>>C1/B4) 
jTHIS NEXT SECTION 
,0F MEMORY . IF SO 
j OTHERWISE DEFAUl T 
I 

MOV 304, (SP) 
MOV 0AAl$,a04 
CLR RO 
TST <J040000 
TST MO 
BNE BB1I 
MOV 0\ 70000, BUFMAX 
BR BB1$ 



AA1I 



BBlit 



00056? 
000564 



000616 



iSET STACK PTR 
jCLFAR AUTO SEQUENCE 

USED TO TEST IF THERE 



THEN ALLOW LARGE RECORD 
TO 4000 OCTAL. 



f i AG 

IS MORE 
LENGTHS 



THAT lb>< 
( 10000). 



MOV 
MOV 
RTT 

MOV 
NEb 
MOV 
MOV 
ADD 
MOV 
I JACH. 



Cl R 
CHNFLli! .WORD 

1ST 
M U 

MOV 
INC 
JMP 



01 74000, BUFMAX 
01 77777, RO 



B»# MAX.RO 

RO 

CBUFBEG.WDATA 

OBUFBEG,RDATA 

NO.RDATA 

tsp)..a#4 



i PC ) ♦ 



0)04.' 

50$ 

OSWREG.SWH 

CHNFl li 

5$ 



j SAVE CONTENTS OF TRAP 

I SET UP NEW TRAP 

t CLEAR "TRAP FLAG" 

I TEST AT THE 16K BOUNDAR r 

I CHECK RO ANO SET IF STILL JERO 

j IF SO, THEN NO TRAP OCCURRED 

I IF NO TRAP, THEN ALLOW 1O00O RWt 

I ANO CONTINUE 



RECORDS 



I TRAP THEN ALLOU ONI. i 
|SET THAT TRAP OCCURRED 
j ANO RETURN FROM TRAP 



4000 BtTE RECORDS 



12? ft'! 000006 000041 



T'O J i 
Hi 



CMPU 



Ot»,WMi 



jPUT MAX RECORD LENGTH IN RO AND CONVERT 

l IT TO A POSITIVE NUMBER 

j SET STARTING ADDRESS OF WRITE Rl+ * t R 

l 

I SET STARTING ADDRESS Of READ BUFFfcR 

j RESTORE 



I jClt.AR CHAIN INDICATOR 
l I CHAIN MODE. INDICATOR 
Ml'O « CHAIN' NOT CHAIN MODE 
l j BRANCH IF TN DUMP MODE 

I t INVOKE ^Ot TUARE SuR 

I jSF T CHNFl G - CHAIN MODI 

i |U) TO CHAIN ADORE 5'. 

I BRANCH IE LOADED VIA TNOP 



33 1 



CO 1 \ 01 


1M03 It 


id H'.' : 


nm 


MAC) 11 


30( 1046) 


O t ' MAR 84 14 5 01 PAGE 


WTlDl , 


Pit 7 -MAR 84 


14 j 04 










1*M0 


003000 


001003 








HNF 


4$ 


1*13 


003004 


000004 


006314 






1 tPf 


MSG100 


1^14 


005010 


000000 








HAL T 




rus 


003010 


005 73 7 


003146 




4$: 


T5T 


CHNF'l G 


1*16 


005016 


001406 








BF.Q 


STAUT 


1*1 7 


003200 


00503 7 


000 740 






INC 


ASEUF 


1918 


003024 


000004 


024 35 7 






MPF 


,MSG50 


1*1* 
1*00 
1*01 


003030 


000137 


02134c? 






JMP 


A5EQ0 










{START 






1*00 


00 3 c 1 34 


010 737 


000001 


000644 


STAUT; 


MOV 


01, TINE 


l'V5 


003040 


00505 7 


014520 






CI 3 


Rori. 


1*04 

i*os 

l*0t> 
1^0' 


00304b 


000405 






{START 
STARTC: 


BR 


5TARTB 


003050 


00503 7 


000644 




CLR 


TINf 


1*08 
1*0* 
?.*30 


003054 


000442 








BR 


STARTD 










{START 


^io********* * 


1~».M 


003056 


005037 


000644 




5TARTA: 


CLR 


TINF 


1 o J . ■* 

* - . ,« 


003262 


012700 


000646 




STARTBj 


MOV 


05TFLG.R0 


1 ••*-.? 


00:066 


012701 


000074 






MOV 


OENDFLG-STFLG.Rl 


i *M 


0030 7. 


, 05020 






1*: 


CURB 


(R0)» 


l.i^S 


0030 V4 


005301 








DEC 


Rl 


" »*S 


CM") 32 76 


001375 








BNE 


1* 


;^X/ 


003300 


012706 


000500 






MOV 


0500, SP 


r *;<;* 


003304 


004 757 


004234 






JSR 


PC.RANSET 


). *^ 


003310 


012700 


001054 






MOV 


OSTTBL.RO 


.v-*«v. 


003314 


012 701 


001720 






MOV 


0EN0TBL-STTBL,R1 


i*-u 


003320 


105020 






et: 


CLRB 


(R0)» 


i ■>♦_-» 


C03322 


005301 








DEC 


Rl 


1*43 


003324 


001375 








BNE 


21 


?944 


003326 


012700 


000750 






MOV 


4UN1 ,R0 


J 945 


003332 


022710 


177777 




3*t 


CMP 


l.(RO) 


1 94 b 


0O333& 


001403 








BEQ 


4$ 


!i 44 7 


003340 


042 720 


040000 






BIC 


040000, (RO)* 


l*4fl 


003344 


000772 








BR 


31 


;.-)^ 


003346 


012737 


177777 


015 766 


4«: 


MOV 


i.PATS 


: *so 


003354 


012757 


000001 


000662 


STARTE: 


MOV 


01, Rl CNTR 


1951 


003362 


013746 


000004 




STARTD: 


MOV 


S04 , C SP ) 


1952 


OC 3 366 


013746 


000006 






MOV 


aob , ( SP ) 


1953 


003372 


022737 


000176 


000616 




CMP 


05WRFG.5WR 


1 954 


003400 


001413 








BF.Q 


»'t 


1955 


003402 


012737 


005426 


000004 




MOV 


Oli ,o)04 


1 956 


003410 


005037 


000006 






CLR 


U06 


1957 


003414 


022777 


imii 


175174 




CMP 


01 •7/77,o3«;wR 


1958 


003422 


001402 








RtQ 


,i 


IS'* 1 * 


003424 


000404 








BR 


3$ 


1 960 


00 5426 


022626 






H: 


CMP 


I sP U .1 SP W 


1961 


0034 30 


012737 


000176 


000616 


OS: 


MOV 


05WRFG.5WR 


I960 


0034 36 


012637 


000006 




Ms 


MQV 


K SP ) * , WOt » 


196 5 


00 3442 


012637 


000004 






MOV 


( SP )• ,W04 


?0*64 


003446 


012 706 


000500 






MOV 


0500, SP 


1 *f .'.» 


00 5452 


004 7 3 7 


010060 






JSR 


PC. T1NP 


5 '■'♦■»,» 


005456 


012 7/ ' 


000040 


175034 




MOV 


04Q*&CS 


196/ 


003464 


005000 






STAUTUt 


CLR 


RO 



5EU 0042 



{ADVISE USFR TO REMOVE TMDP FROM SLAVE 

I SEE IF IN CHAIN MODE 

{SET AUTO SEQUENCE FLAG 

j TYPE TITLE 

{GO TO AUTO SEQUENCER 



I'.t T TT> FNTR< FLAG 

t CLEAR RANDOM DATA FLAG 



I CLEAR TTY INPUT FLAG 



iCLFAR TTY ENTRY FLAG 

jGET STARTING ADDRESS OF" FLAGS 

{CLEAR FLAGS AND COUNTERS 



jSET STACK POINTER 

I GO RESET RANDOM BASE 

iGET STARTING ADDRESS OF STAT TABLE 

I AND OF BYTES IN TABLE 
tCLEAR STATISTIC COUNTERS 



I SET At L SLAVES ON L INf 

I BRANCH IF AT END 0^' TABLE 

{MARK SLAVE ON-LINE 

j PRESET PATTERN 
{PRESET BLOCK COUNTER 
I SAVE fcRROR TRAP VICTOR 

{BRANCH If SOFTWARE SWR 

jALREAOt SELECTED 

iSET TIMEOUT TRAP TO 1$ BEt OW 

{BRANCH If SWR • 177,' .'. , TRAP 

{IF NOT AVAIl (1$) OTHFRWISL 

I GO TO 51 

iRFSFT STACK 

i SET SWR • SO* TWARt SWR 

I RF STORE FRROR TRAP 



j GO GF 1 PARAMF Tt MS » ROM TT* 

j INi T IAi U'E 

{POINT TO KiHbt ENIttl 

















M 


cmldeo 


TM05 Ttlh- ru.'/ 


DR1 


MACU1 


30(1046) 


7 MArt 


-64 14:21 PAGE 3 


CVU-OK, 


Pit 07 -MAR -94 


14:04 










]%ft 


005466 


022760 


17 7777 


000752 


1$J 


CMP 


1.UN1CR0) i 


196^ 


0034 74 


001406 








BEQ 


2i 


i9;o 


003476 


042760 


100000 


000752 




BIC 


100000. UNlCRO) i 


197 i 


003504 


062700 


000002 






ADD 


02 , RO i 


19;,? 


003510 


000766 








BR 


1$ i 


19 7? 


003512 


113737 


005043 


005042 


2$: 


MQVB 


RE0TC*1,RE0TC i 


19/4 


003520 


012777 


000100 


175072 


START1: 


MOV 


0100.BTKS i 


19*5 


003526 


013700 


000702 






MOV 


UNP , RO j 


19 76 


003532 


022760 


177777 


000752 


STAR1A: 


CMP 


0-l.UNHRO) } 


1.97/ 


003540 


001404 








BEQ 


STAR1B 


1970 


003542 


016037 


000752 


000552 




MOV 


UNlCRO), UDES i 


1979 


003550 


000445 








BR 


START4 


1980 


003552 


005237 


000662 




STAR1B: 


INC 


BI.CNTR i 


1981 


003556 


005737 


000742 






TST 


ASEQF } 


198? 


003562 


001411 








BEQ 


STAR1C i 


193? 


003564 


023737 


000662 


000744 




CMP 


BLCNTR.ABLCNT j 


1984 


003572 


001005 








BNE 


STARIC | 


1985 


003574 


005037 


000662 






Ct.R 


ULCNTR j 


1^66 


0036C0 


005037 


000702 






CLR 


UNP ; 


1^87 


003604 


000207 








RTS 


PC i 


L988 


003606 


005037 


000702 




STARld 


CLR 


UNP 


19a 9 


003612 


005000 








CLR 


RO 


19^0 


003614 


016037 


000752 


000552 




MOV 


UNHRO),UDES , 


1 .991 


003622 


105777 


174770 






TSTB 


aSWR i 


1992 


003626 


100002 








BPL 


START2 i 


1943 


003630 


004737 


011776 






JSR 


PC.CCNTR j 


1994 


003634 


032777 


000400 


174754 


START2t 


BIT 


0400, 8SWR j 


1995 


003642 


001402 








BEQ 


START3 j 


1 99o 


003644 


004737 


014456 






JSR 


PC.DATR j 


!997 


003650 


032777 


000100 


174 740 


START3: 


BIT 


oioo.aswR ; 


1^98 


003656 


001*02 








BEQ 


START4 j 


1999 


003660 


004 737 


012036 






JSR 


PC, RCNTR j 


2000 


003664 


032760 


140000 


000752 


START4: 


BIT 


0140000, UNlCRO) j 


2001 


003672 


001065 








BNE 


START7 , 


2002 


003674 


012777 


000040 


174616 




MOV 


040, 3CS ; 


.'005 


003702 


013777 


000550 


174610 




MOV 


DVN,3CS j 


2004 


003710 


013777 


000552 


174624 




MOV 


UDES.aTC \ 


2005 


003716 


105777 


174600 




1*: 


TSTB 


aos j 


2006 


003722 


100405 








BMI 


2i j 


;.oo ■' 


003 724 


005337 


000674 






DEC 


STAl. 


2008 


003730 


001372 








BNE 


1* i 


.'009 


003732 


000137 


020426 






JMP 


offline i 


2010 


003736 


004737 


013606 




2$: 


JSR 


PC.DSUP \ 


..'Oil 


003742 


004737 


005350 






JSR 


PC.INIT , 


2012 


003 746 


004737 


005044 






JSR 


PC.RUND j 


20 1 5 


003 752 


004737 


005464 






JSR 


PC, WRITE j 


."014 


003756 


013737 


000606 


000674 




MOV 


TsTAL.STAL i 


. ors 


003 764 


004737 


011766 






JSR 


PC. STAl I 


^oi.*? 


00 5 7 70 


004737 


00 7322 






JSR 


PC.RStQ i 


201 7 


00 5 7 74 


015737 


000606 


0006 74 




MOV 


TST At .STAl s 


2018 


004002 


004 73 7 


Oil 766 






JSR 


PC. ST All. j 


;\i9 


004006 


032777 


040000 


1 74602 




BIT 


040000, oJSWR j 


.020 


C04014 


001414 








BFU 


SI ART 7 , 


2021 


004016 


012700 


000001 






MOV 


01, RO j 


20, V 


004022 


0O4 73 7 


022126 






JSR 


PC.PAPRT { 


2023 


004026 


004/37 


004056 






JSR 


PC.STP i 



SEQ 004 3 



jBRANCH IF LAST ENTRY 

CLEAR EOT FLAG 

POINT TO NEXT UNIT ENTRY 

CONTINUE CLEARING 

RESTORE EOT COUNTER 

SET KEYBOARD IE BIT 

RO - UNIT TABLE POINTER 

BRANCH IF LAST ENTRY 

LOAD NEXT UNIT DESCRIPTION 

BUMP BLOCK COUNTER 
SEE IF AUTO SEQ 
IF NOT: BR 
SEE IF DONE SEQ 
IF NOT: BR 
RESET BLOCK CNTR 
RESET UNIT POINTER 
RETURN TO AUTO SEQ 



LOAD FIRST UNIT DESCRIPTION 

SEE IF RANDOM RECORD SIZE 

IF' NOT: BR 

GO GENERATE RANDOM RECORD SI/E 

SEE IF RANDOM DATA 

IF NOT: BR 

GO GENERATE RANOOM DATA 

SEE IF RANDOM RECORD COUNT 

IF NOT: BR 

GO GENERATE RANOOM RECORD COUNT 

BRANCH IF UNIT AT EOT 

OR MARKED OFF LINE 

DO A MASSBUS CLEAR 

SET DRIVE NUMBER 

SET SLAVE NUMBER 

SEE U SLAVE AVAIL 

IF SO: BR 

AWAIT TUR 

GO MARK DRIVE OFF l I NE 

GO SET UP WRITE DATA 

INI T SLAVE 

REWIND 

WRITE 

SET TURN AROUND DEl.Ai 

i DEI At 
GO TO READ SEQUENCER 
SET TURN AROUND DEI At 
DELAi 

SEE IF SHOULD PRINT STATISTICS 
IK NOT: BR 

f.E T RECORD COUNTER TO 1 
PRINT CiCl L NliMBER 



GO PRINT STATS 



r\n mo mo? n ib n</,* dri 


MAC V 11 30(1046) 


07 


MAR 


-84 14:21 


PAGE 


33-3 


C/n.DKPll 07 -MAR -84 14;04 














AV4 00403.? 005237 000734 




INC 




BTSTf 




jSET STAT ONLY PRINT 


/0.:S 004036 004 737 007^40 




JSR 




PC.BTPRT 




{PRINT BAD TAPE STATS 


-We 00404? 00503 7 000 734 




CLR 




BTSTF 




{CLEAR FLAG 


AV7 004046 062737 000002 


000702 START/: 


ADD 




V>2 . UNP 




{POINT TO NEXT UNIT 


£028 004054 000621 


STARTS: 


BR 




START1 




{CONTINUE 



SEQ 0044 



tV^XH.O 


TM03 TE16- 10/ / 


DRI 


cy tv.de. 


Pll 07-NAR-84 


14:04 


,"\>$Q 








.:o5i 








:vr<2 


004056 


004 737 


016504 


.'.-035 


004062 


000004 


025323 


2034 


004066 


013700 


000702 


.'035 


004072 


016003 


001054 


:\)5b 


004076 


104400 




.•037 


004100 


000004 


025434 


."•osa 


004104 


016003 


001074 


..0$9 


004110 


104400 




...040 


004112 


000004 


025423 


,\;u 


004116 


016003 


001114 


..04,? 


004122 


104400 




.; p 04.> 


004124 


000004 


026201 


?044 


004130 


016003 


002674 


2045 


0^4 134 


104400 




2046 


004136 


000004 


026212 


.V047 


004142 


016003 


002734 


*043 


004146 


104400 




.'049 


004150 


000004 


025520 


'YSO 


004154 


016003 


001134 


;:osi 


004160 


104400 




;• no 


004162 


000004 


025355 


,05? 


004166 


016003 


001154 


,:v>S4 


004172 


104400 




:>0«V% 


004174 


000004 


026201 


2 or* 6 


004200 


016003 


002714 


.'CSV 


004204 


104400 




.j-:-^i 


004206 


000004 


026212 


20 V) 


004212 


016003 


002754 


P.ViO 


004216 


104400 




.*Jij1 


004220 


000004 


02550/ 


.0-2 


004224 


016003 


001174 


, .]-,', 


004230 


104400 




: om 


004232 


000207 




L . ■ V'll 

20-H 


004234 


012737 


153624 


.'.'V* 


004vf42 


012737 


032561 


t -<v-u 


004250 


013/37 


000640 


/wi 


004256 


013/3/ 


000642 


,0/2 
2 5'^ 


004264 


00020 7 





VA 

MACY11 30C1046) 07 MAR -84 14}21 PAGE 33-4 



SfcQ 0045 



.♦*♦**++*+♦ SUBROUTINE TO PRINT STATISTICS ♦♦**♦♦*♦♦♦ 



STPj JSR PC>DPPRT 
TYPE.MSG65 
MOV UNP.RO 
MOV RTY1(R0),R3 
TYPOCT 
TYPE.MSG73 

MOV WTER1'R0),R3 
TYPOCT 
TYPE,MSG72 

MOV RDERl(R0) t R3 
TYPOCT 
TYPE.MSG113 
MOV RFS0FT(A0),R3 
TYPOCV 
TYPE.MSG114 

mov rfhard(r0).r3 
typoci 

TYPE.MSG77 

MOV OATER1CRO"),R3 

TrPOCT 

TYPE.MSG68 

MOV RDERR1(R0),R3 

TYPOCT 

TYPE.MSG113 

MOV RRS0FT(R0),R3 

TYPOCT 

TYPE.MSG114 

MOV RRHARD(R0),R3 

TYPOCT 

IYPE.MSG76 

MOV DEREV1(R0),R3 

TtPOCT 

RTS PC 



j PRINT DROPS AND PICKS 
j TYPE MSG 



{PRINT RETRIES 

i type msg 

{PRINT WRITE ERRORS 
{TYPE MSG 

, PRINT READ FORWARD ERRORS 
I TYPE MSG 

I PRINT FORWARD SOFT ERRORS 

{TYPE MSG 

{PRINT HARD FORWARE ERRORS 
{TYPE MSG 

{PRINT DATA ERROR FORWARD NUMBER 
{TYPE MSG 

{PRINT REVESE ERROR NUMBER 
{TYPE MSG 

{PRINT REVERSE SOFT ERROR 

{TYPE MSG 



{TYPE MSG 

{PRINT DATA REVERSE ERROR NUMBER 
{RETURN 



; RANDOM BASE RF.5ET**» **♦♦♦♦♦ 



000634 RANSETj MOV 
000636 MOV 

000554 MOV 

000556 MOV 

RTS 



0153624. RANBAS 
032561, RANSAV 
RCSAV.RCNT 
FCSAV.FMCNT 
PC 



{RESET BASE 

{RESET BUFFER 

{RESET RECORD COUNT 

{RESET FRAME COUNT 



i 'a mo I MO 3 

C7Tf.or.Pii 



?u<v 
?o ; : 
.:o:s 
:-V ■ 9 

?OS0 

.V8? 

?0£< 

. ?0tf4 

; o ( v."» 
.V86 
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SEQ 0046 



?O i ~M 

,;. »j 

?v)\*3 
J(>)4 

.'..o *■?!:• 
;W6 
,:os/ 
?o\>b 

P099 
2100 
Pi 01 
210? 
.?J.03 

?U)4 

?105 

.:io6 
;?io*> 

.7108 

< 1 <r » 

..'1.1 1 
,'■11? 

?U3 

2U4 

.'lit 

;■ ; VA 
i.:llw 
; j if.'n 

i'Vl 

.m;v 

.'123 

/i;m 
.h;.-. 
.•i^h 
;*i;v 

a 130 



004266 

004274 
004 300 
004 306 
004310 
004316 
0043?? 
004324 
004332 
004336 
004340 
004 344 
004350 
004354 
004360 
004 366 
004 370 
004 376 
004400 
004406 
004410 
004416 
004420 
00442? 
004424 
0044 30 
004434 
004440 
004444 
004446 
004452 
004456 
004462 
004466 
004472 
004 500 
004502 
004506 
004M0 
004514 
004516 

0045.'? 
004526 



013777 
013700 
052760 
001014 
012777 
105777 
100375 
01277/ 
005737 
001004 
013700 
042 700 
005037 
004 737 
022737 
001004 
012/37 
000407 
022737 
001006 
012737 
000004 
000000 
0004U 
000004 
013704 
005264 
016403 
104400 
000004 
005037 
004/3 7 
004/3 7 
013700 
032760 
001010 
1057/7 
100405 
00533/ 
001364 
000137 

10533 7 
001410 



000552 
000702 
040000 

000011 
174200 

00000 7 
00073? 

000666 
100000 
000666 
0?2126 
000002 

026074 

000001 

025727 



024060 
000702 
002654 
002654 

02575? 
000 7 3? 
004056 

00 7240 
00070? 
040000 

1/4014 

000674 

0?04?*i 

O0SO42 



174246 
00075? 
174172 

174156 



REOT 
1$: 

2$: 

3$: 



0007 32 
004420 
00073? 
004420 



4$: 



5$: 

6$ : 



000752 



REOTlC 



RE0T1E 



REOT, 



• **************************************************** 
{REWIND FROM EOT: 

IwHEN ANY TRANSPORT BEING TESTED REACHES END OF TAPE 

{DURING A READ OR WRITE OPERATION, IT WILL BE REWOUND 

{AND FLAGGED AS UNAVAILABLE UNTIL ALL AVAILABLE UNITS 

jHAVE REACHED EOT AT WHICH TIME ALL TESTING WILL BR RESUMED 

{AT A BLOCK COUNT OF ONE ( 1) . A MESSAGE WILL BF 

{PRINTED ON THE SUPERVISORS CONSOLE AS EACH UNIT RFACHF5 

{EOT AND IS REWOUND. 

j *************************** ***************************** 



REUr?At 



MOV UOES.QTC 

MOV UNP.RO 

BIT 040000, UNURO) 

BNE 2i 

mov oii.aci 

TSTB 6)0S 

BPL 1 $ 

MOV 07.UC1 

TST BTFLG 

BNE 3$ 

MOV EOTREC.RO 

BIC 0100000.RO 

CLR EOTREC 

JSR PC.PAPRT 

CMP 02.BTFLG 

BNF 4 $ 

MOV 0MSG1O9.6* 

BR 5$ 

CMP Ol.BTFLG 

BNE RE0T1C 

MOV 0MSG1O6,6$ 

TYPE 

.WORD 

BR REOT IE 

TrPE,MSG20 

MOV UNP.R4 

INC E0TC01R4) 

MOV E0TC0(R4),R3 

TYP0C1 

TYPE.MSG16A 

CLR BTFLG 

JSR PC. 5 IP 

JSR PC.BTPRT 

MOV UNP.RO 

BIT 340000, UNKRO) 

BNE R10T2A 

I STB aos 

BMI R10T2A 

DtC STAL 

BNf REOT? 

JMP 0* M TNI 

01 CH ME CMC 

EjEU RE0T3 



,LOAD TAPE CONTROL REGISTER 

{GET UNIT POINTER 

,-BRANCH IF UNIT MARKED OFF-LINE 

{DRIVE CLEAR 
{WAIT FOR DRY 

{START REWIND 

{SEE IF BAD TAPE OVERFLOW REWIND 

8 IF SO j BR 

j SET RECORO NUMBER OF EOT 

{CLEAR EOT INDICATOR £ RFC COUNT 

{PRINT HEADER 

{SEE IF POSITION ERROR 

{IF NOT: BR 

{set position error msg 

{see if bad tape overflow 
i if not: br 

j set bad tape overflow msg 
{Type msg 

{Will CONTAIN MESSAGE ADDRESS 

{Type toi msg 

(BUMP CNTR 

{PRINT EOT CNTR 

; TYPE MSG 

{CLEAR BAD TAPE FLAG 

{PRINT STATS 

{PRINT BAD TAPE STATS 

ibET UNIT POINIER 

{BRANCH It UNIT MARKED OFF-LINE 

{BRANCH IF UR> SET 



{WAIT [)Ri 

j GO MARK SI AVE OFH-TNt 

{SEE !► t Avil UNIT TO REACH EOT 
iff SO: BR 



c.'ii ni o imo? 

CZiEDE .I'll 



H 16- IU// DR1 
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SEQ 004 7 



2131 

2132 
213; 
2 ' M 
21 *.*» 
?.15(> 

21 v 
2:;<<? 

i- i. - 1 ■ 

2': '10 
."141 

2"i? 

': 1 A .' 
21<i4 
.HAS 

;*14; 
;-:14» 
,.:149 
2iso 
;.im 
2152 
2153 

2154 
2155 
2 '56 

;mv/ 
2isa 

■::hv* 

.'■•160 

r'LtW. 

; jo, 1 
2 v>-i 

,.' U>6 
.'■1*,'/ 

.'Jo*-) 

■1 /(■ 
. ■ 1 / 1 
21 /.: 

v 1 ' 

<" 1 1 
< ?. ) 

( 1 5 
M) 
( 1 ) 

( I. ? 

21. /. T 

.'"I 74 



;n'.'b 



OC4530 
004534 

004542 
004544 
004550 
004556 
004562 
004564 
004572 
004600 
004606 
004610 
004616 
004620 
0C4626 
00-1634 
004642 
004646 
004650 
004656 
004664 
004666 
0046/4 

004676 
004 704 
004/12 
004 716 
004 724 
004 /?6 
004 732 
004 736 
004 742 
004744 
004 746 
004 /50 
004 754 
004 762 
004 766 
004/7? 
004 7 74 
005000 
005004 
005006 
C 050 10 
005012 
005014 
005016 
005020 
005022 
00'. 026 
005030 
0050 54 
0050 3* 
005042 



013700 
052760 
005726 
000137 
113737 
005037 
005000 
016037 
013777 
032760 
001412 
032777 
001427 
062737 
042760 
012777 
105777 
100375 
012777 
032777 
001/74 
032777 
0013/4 

042760 
062737 
013700 
022 760 
00131/ 
00503/ 
005037 
005/37 
001402 
005726 
000207 
004 73 7 
012/37 
005037 
005737 
001421 
000004 
013 700 
001405 
000005 
004 710 
000240 
000240 
000240 
000240 
005737 
001402 
00015/ 
000000 
000 n/ 
000000 



000702 
100000 

004046 
00504 3 
000702 

000752 

000552 
040000 



000401 
140000 
000011 
173654 

00000 7 
000002 



100000 
000002 
000 702 
177777 

000702 

000644 



004234 

17/;// 

014520 
000600 

025630 
000042 



003146 
021 M t ) 
003354 



000752 



005042 



00055? 
1/3742 
000752 



010000 173704 



005042 
000752 
173646 



173632 
173636 



020000 173626 



000 75? 
000 702 

000** 



013766 



RE0T3 
RE0T4 



1$: 

2$; 



3f : 
4$; 

105: 



REUTX; 



TEND: 



SENDAD: 



HIRE; 



1$: 
RED! o . 

REOTCj 



MOV 

BIS 

TS1 

JMP 

MOVB 

CLR 

CLR 

MOV 

MOV 

BIT 

BEQ 

BIT 

BEQ 

ADD 

BIC 

MOV 

TSTB 

HPt 

MOV 

BIT 

BEQ 

BIT 

BNE 

BIC 

ADD 
MOV 
CMP 
BNF 
CLR 
Cl.R 

rsr 

BEQ 

TST 
R1S 

JSR 

MOV 

CLR 

TST 

BEQ 

TYPE. 

MOV 

BEQ 

R*-SE 

JSR 

NOP 

NOP 

NOP 

NOP 

TST 

BFQ 

JMP 

hai r 

JMP 




UNP.RO 

#100000, UN1CR0) 

( SP ) ♦ 

START/ 

RE0TO1.RE0TC 

UNP 

RO 

UN1(R0),UDES 

UOES.aTC 

#40000, unhro:) 

II 

oioooo, aos 

10$ 

O401.RE0TC 
#140000, UNHR0) 
#11, SCI 

aos 
?$ 

07, SCI 

#2,aos 

3$ 

#20000, SOS 
4$ 

#100000, UNHRO) 

#2, UNP 

UNP.RO 

#1 , UNHRO) 

RE0T4 

UNP 

TINF 

A5EQF 

REOTX 

(SP)» 

PC 

PC. WANS* T 

# l.PATS 

RDR. 

SPFLG 

REOTXX 
.MSGIOO 

a#42,R0 

HERE 
T 

PC.(RO) 



CHNF I (. 

U 

ASEQO 

UIARTL 



j SET EOT FLAG 

{RESET STACK POINTER 

;G0 TO NEXT UNIT 

jRESTORE UNITS EOT COUNTER 

{POINT TO FIRST UNIT 

jLOAD UNIT DESCRIPTION 

{SELECT SLAVE 

{BRANCH IE UNIT NOT MARKED OFF-LINE 

{BRANCH IE MEDIUM NOT ON LINE 

{INCREMENT # OE UNITS UNDER TEST 

{MARK UNIT BACK ON-LINE 

{DRIVE CLEAR 

{WAIT FOR DRIVE READY 

{REWIND UNIT 

{WAIT FOR BOT TO SET 

{WAIT FOR PIP TU CLEAR 
{AWAIT PIP RFSET 

{CLEAR EOT FLAG 

{POINT TO NEXT UNIT 
{BRANCH IF NOT LAST UNIT 

{CLEAR UNIT POINTER 

iClF.AR TTY INPUT FLAG 

{SEE IF AUTO SEQ 

j IF NOT; BR 

{RESET STACK POINTER 

{RETURN TO AUTO SEQ 

{GO RESET RANDOM BASE 

{PRESET PATTERN 

{CLEAR RANDOM FLAG 

{SEE IF SINGLE PASS 

{IF NOT; BR 

{TYPE MSG 

;GET ACTll RETURN ADDRESS 

{BRANCH IF NOT ACTll 



BRANCH IF NOT CHMi.N MODE 

RETURN TO AUTO SEQUNCER 

Rt START AT BLOCK NUMBER ONE 
itUT UNIT COUNTER 



CM HH I MO* 
CZTtDE.PU 



21*0 

2 i a i. 
i»j ■ 

11 'J 

2184 
2135 

21 so 

2! 88 

2is i ) 
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2! 91 

2i. a 2 

2l<* : - 
2V94 

21'. 5 

.: i ^c 

2lV.' 

2is*a 
2i'A» 

22 ; >2 

2.: 02 

2204 
;\'(> r j 
220*-. 
220 / 

22<V 

; 'io 
vu 
c n? 

2213 
2?14 
2-U5 

2216 



22 1'* 

2220 



2223 
2224 

2225 

2226 
222 / 

2228 

222^ 

2P50 
2231 

22 52 

> i < / 

,V'.4 
2235 



0O504 A 

00505.-: 

0050: 4 

005056 

0050 1^ 

005C/0 

005074 

005102 

00510 

00511** 

005116 

0051 34 

005126 

005134 

005142 

005150 

005156 

00:; 162 

c:o:ii-54 
02 »170 
005 i 72 
005176 
005204 
005212 
005214 
005220 
00^224 
005232 
005234 
00524 2 
005250 
005252 
00b260 
005266 
005270 
0052 76 
005300 
005504 
005 512 
005520 

005522 

005326 
005332 
005540 
005346 



032777 
OOiOOl 
000207 
01.3737 
005')- 7 
0C503? 
11*737 
0137^0 
022/60 
001'»57 
032760 
00i<'>?4 
016037 
013777 
01277/ 
01277/ 
1057/7 
1004 05 
005557 
001372 
00013 7 
042760 
062737 
000753 
005037 
013700 
022760 
001453 
016037 
032760 
001015 
013777 
03277 7 
001374 
052777 
001002 
000157 
062/57 
012777 
000737 

015/00 
01003/ 
01603/ 
015/'/ 
00020 7 



000 702 
000 702 
000666 
005043 
000702 
177777 



000/52 
000552 
0000 U 

00000 / 
173540 

000674 

020426 

100000 
000002 

000702 
000 702 
177777 

000752 
040000 

000552 

020000 



020426 
C0OC02 
000011 



ooo r:^''. 

000 /02 
000 /52 
000552 



SEQ 0046 



001000 175544 RWND: 



000722 RWNDA 



005042 

000752 



140000 000752 



000552 
1.73400 
17334 
173352 



000002 175224 



RWNDO 



1$: 



000/52 RWND 1 A 
000702 

Rk'ND.^: 
RWND3: 
000752 

000552 
000752 

1 73262 
173234 1$: 



000702 RWND 1 ) 
175170 



RWNOX 



it******************.******************************** 
REWIND ALL AVAIL TAPES: 

THIS ROUTINE} ENTERED VIA CONSOLE SWITCH NINE (9), 
WILL REWIND ALL AVAILABLE TAPES TO BOT NO MATTER 
WHERE THEY ARE CURRENTLY POSITIONED AND RESUME TESTING 
ON THE CURRENTLY SELECTED UNIT, 



000552 
17 51/4 



BIT #1000, SSWR 

BNE RWNDA 

RTS PC 

MOV UNP, UPS 

CLR UNP 

CLR EOTREC 

MOVB RE0TO1.RE0TC 

MOV UNP.RO 

CMP 0-l.UNURO) 

BEQ RWND2 

BIT 0140000, UNKRO) 

BNE RWND1A 

MOV UN1(R0),UDES 

MOV UDES,3TC 

MOV on,aci 

MOV o/, aci 

TSTB aos 

BMI RWND1A 

DEC STAL 

ONE 1 % 

JMP OFFLINE 

BlC 0100000, UNKRO) 

ADD 02, UNP 

BR RWNDJ 

CLR UNP 

MOV l "NP , RO 

CMP 0-l,t.iNlCRin 

BEQ RWNHy 

MOV UN1CR0),UDE5 

BIT 040000, UN KRO) 

B*E RWND5 

MOV UDES.3TC 

BIT 020000, aos 

BNb 1 1 

BIT 02,d)05 

BNE RWND5 

JMP [H.i INE 

ADO 02, UNP 

MOV ^il.UCl 

BR RWND 5 

MOV UP5.R0 

MOV RO.UNP 

MOV UNKRO.UOES 

MOV UOES.STC 

RT C > PC 



;SEE IE SHOULD REWIND 

j If SO: BR 

{ELSE EXIT 

{SAVE UNIT POINTER 

{CLEAR POINTER 

{CLEAR EOT FLAG 

{♦♦B RESTORE UNIT CTR 

{POINT TO UNIT ENTRY 

{BRANCH IF LAST ENTRY 

{BRANCH IF ALREADY REWINDING 
{OR MARKED OFF LINE 
{SET UNIT DESCRIPTION 
{LOAD COMMAND REGISTER 
{DRIVE CLEAR 
{START REWIND 

{IF DRY: BR 

{AWAIT DRY 

; G0 MARK UNIT OFF LINE 
{CLEAR EOT FLAG 
{BUMP POINTER 
:D0 NEXT JNIT 
jCl.CAR POINTER 
jPOINi TO UNIT ENTRf 
{BRANCH IF I AST FNTRn 

{SET uNIT DESCRIPTION 

j3RANCH IF UNIT MARKED OFF LINE 

{LOAD UNIT DESCRIPTION 

{AWMir PIP RlSEF 
{BRANCH IF 51 AVF AT BOT 

{PRINT OKFL INE MESSAGE 
;BUMP POINTER 
{DRIVE CLEAR 
1 00 NEXT UN II 

{ RE 5 I ORE UNIT P01NTFR 

;RE5t T UNIT DESCRIPTION 

(Ri-TURN TO TES T 



C/lLOLO I NO 3 
CZTEDE.P11 



2236 

223 : 
2230 

223°> 

2240 
224 1 

224 1 : 

2243 
2244 
224 r i 
2246 
224 7 
224 3 
224^ 
2250 

2251 

2252 

2253 

2254 



n 16 n;;; dr^ 
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2256 

223/ 

2238 
2259 
2260 
22*1 

2262 



003350 
003354 

005362 
005370 
005374 
005400 
005404 
0054 0b 
005414 
005416 
005420 
0054 26 
005430 
005436 
005442 
005444 
005452 
005454 
005462 



013746 
012777 
013777 
011677 
04271b 
022726 
001005 
032777 
001422 
000404 
327/7 
001015 
012777 
1057 7 7 
100375 
032/7/ 
0013V4 
012777 
00020/ 



000552 
000040 
000550 
173146 
174377 
001400 



000007 
173060 

020000 

000011 
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SEQ 0049 



1/3136 
173130 



INIT 



000040 173106 



000040 17 30 74 1$: 



173052 2$: 
20$: 

173050 3$; 

173026 

4${ 



i*****,******^*.*.********** ************* ************** 
INITIALIZE SELECTED SALVE 

THIS ROUTINE REWINDS AND SETS THE PROPER DENSITf IF 
THE DENSITY REQUIRED FOR THE TEST IS DIFFERENT PROM 
THE DENSITY AT WHICH THE SLAVE IS SELECTED. 
********** + ** + ******.*.**.*** + ** + *****.******** + * *.* + +.*♦ + 



MOV UDES.-CSP) 

MOV #40,&)CS 

MOV DVN.5JCS 

MOV (SP),8TC 

BIC ftl/43/7,(SP) 

CMP #1400, (SP)* 

BNE 1$ 

BIT #40, SOS 

BEQ 4$ 

BR 2$ 

BIT #40.bK)S 

BNE 4 $ 

MOV #/,cJCi 

TSTB WD5 

BPL 20$ 

BIT #20000, 3DS 

BNE 3$ 

MOV ffU.WCl 

RTS PC 



jGET UNIT r -SCRIPTION 

;D0 A MA<^- *S CLEAR 

j LOAD DRi» 

sl.OAD SLAVE # £ SLAV* DESCRIPTION 

; clear all but density bits 

l BRANCH IK NOT NR/ 

;BRANCH IF SLAVE IS IN PE MODE 
I PES =■ 

; BRANCH IK SLAVE IS IN PE MODE 

j PES - 1 

j LOAD REWIND COMMAND 

l WAIT FOR READY 

{WAIT FOR PIP » 

i CLEAR DRIVE 



C/U.Ot TN03 
WH:DL',P11 

22h* 

2?o : 
;.-2t>8 
22t^> 

22/0 

.\ri 

I . t". ' V. 

22/3 

2? 74 

2«? / r 

2281 
22e? 
22t<3 

22fc i 

228% 

2286 
2287 
2288 

228 : > 

2290 
2291 

229.: 

229 5 

2294 
2295 



Tt It. IU 
07 -MAR 
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SEQ OObO 



229 : 

2298 
2299 

2500 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
23U 
2312 
2315 
2 314 
2315 
251*, 
251/ 
25 IK 
2319 



005464 
00547? 
0054 74 
005500 
00550" 
005512 
005520 
005526 
005534 
005542 
005546 
005554 
005556 
00556? 
005564 
005566 
005572 
005576 
005602 
005610 
005612 
005616 
005624 



0327/7 

001402 
000137 
013700 
012737 
013777 
0137/7 
112737 
012737 
000137 
032777 
00141? 
00573/ 
100407 
005300 
052 70C 
01003/ 
012700 
0327 7/ 
001002 
004/3/ 
013/3/ 
004 737 



000001 173124 WRITE 



006244 
000554 
023746 
000556 
000562 
000060 
005546 
020506 
002000 

000666 



100000 
000666 
000002 
010000 

0166 36 

000604 
011766 



WRTE: 
)00660 WO j 
172776 
172/^6 
000700 
000670 

172746 Ul: 



173006 U: 
0006 74 2$: 



,***** + * + + * + *4t** + + *+* + + *** + + + + * + * + + + <.+ + + *<• + + ♦ + ** + *** 

jWRITF ROUTINE* 

! THIS ROUTINE IS USED TO WRITE ONTO TAPE THE BLOCK 
j OF DATA DESCRIBED BY THE OPERATOR AND SET UP 
;IN THE SEQUENCE FORMATTER. THE TAPE UNIT TO BE USED 
;HAS BEEN ASSIGNED BY THE SEQUENCE FORMATTER AND 
i ITS PARAMETERS SET IN A UNIT DESCRIPTION WORD. 
;AS EACH RECORD OF THE BLOCK IS WRITTEN, IT IS CHECKED 
jFOR STATUS ERRORS, WORD COUNT ZERO, AND CORRECT CURRENT 
{MEMORY ADDRESS. IF THE WRITE OPERATION RESULTS IN 
jANY ERROR CONDITION, A WRITE RETRY OF THAT OPERATION 
MAY BE DONE BY SETTING SWITCH FOUR (4) TO A ONE (1), 
THE RETRY CONSISTS OF A BACKSPACE, ERASE FORWARD, AND 
REWRITE Or THE RECORD. (SEE WRITE RETRY SUBROUTINE) 
AFTER ALL DATA RECORDS IN THE BLOCK HAVE BEEN 
WRITTEN, THE WRITE ROUTINE WILL EXECUTE A WRITE 
TAPE MARK COMMAND IF THE TTY RESPONSE TM-1 WAS 
MADE AT INITIAL START. THE TM IS COUNTED AS TOTAL 
DATA RECORDS PLUS ONE (IE: IF 100 DATA RECORDS; TM-RF.CORD 101) 
IF THE WRITE OPERATION (DATA OR TM) CAUSES THE SEIECTED St AVf- 
TO REACH END OF TAPE (EOT) AND THERE IS TO BE NO READING DONE, 
(SW2 AND SW3 SET TO A 1) THEN THE SLAVE IS REWOUND AND 
; FLAGGED AS UNAVAILABLE FOR TESTING UNTIL ALl SLAVES HAVE 
{REACHED EOT AND BEEN REWOUND AT WHICH TIME TESTING IS 
{RESUMED ON ALL AVAILABLE SLAVES. 

{WRITE RETRY MAY BE ALLOWED VIA CONSOLE SWITCH f OUR (4), 
{ERROR CHECKING MAY BE DISALLOWED VIA CONSOLE SWITCH 
{TWELVE (12). 

{WRITING TO TAPE MAY BE DISALLOWED VIA CONSOLE SWITCH 
i/ERO (0). 



bit n.aswR 

BEQ WRTE 

JMP WEX 

MOV RCNT.RO 

MOV <?MSG5,EMADDR 

MOV FMCNl.arC 

MOV HtfUDATA,o)BA 

MOVB 060.MTC1 

MOV rtWl.RTRN 

nip i arc; 

EV 02000, 3D S 

I U 1$ 

V,T f OTRFC 

HMl i$ 

Df-C RO 

BIS VI 00000, RO 

MOV RO.t OTRFC 

MOV 02, RO 

BIT ,'UOOOO,u)SWR 

HNl 2$ 

J5F< PC.FRCHK 

MOV WSTAl.STAL 

JSR PC, STALL 



{SEE IF SHOULD WRITE 

{If NOT: BR 

{RO-RtCORD COUNT 

{SET ERROR MSG ADDRESS 

{LOAD CHAR COUNT 

{SET DATA ADDR 

{SET WRITE OP COMMAND 

;SET RETURN ADDRESS 

I GO EXECUTE COMMAND 

{SEE IF EOT 

j U NOT AT EOT: BR 

{BRANCH IF WRITTEN PAST 



EOT 



{ADJUST $ 0> RECORDS 
{SET EOT INDICATOR 
{SAVE RECORD COUNT 
{SET TO WRITE 1 LAST 
{SEE If SHOW D CHECK 
{If NOT: BR 
{GO CHECK FRRURS 
jSt I DEL A* 
jDELAI 



WRITTEN 



RECORD 
ERRORS 

















M4 




c/u-deo 


1M03TE16/TU7 7 


DRT 


MACY11 


30(1046) 


07-r 


1AR-84 14:21 PAGE 


36 1 


cztede. 


Pll 07-MAR-84 


14:04 












2320 


005630 


005737 


000720 






TST 


RTYFL 


{SEE IF RETRY TIME 


23? 1 


005634 


001401 








BRQ 


3$ 


j IF NOT; BR 


232? 


005636 


000207 








RTS 


PC 


{ELSE RETURN 


2323 


005640 


005737 


000714 




3$: 


TST 


SERFL 


j SEE IF WRITE ERROR 


2324 


005644 


001446 








BEQ 


W5 


j IF NOT: BR 


232b 


005646 


013704 


000702 






MOV 


UNP , R4 




2326 


005652 


005264 


001074 






INC 


WTER1CR4) 


j BUMP WRITE ERROR 


232 7 


005656 


005037 


000714 






CLR 


SERFL 


{CLEAR STATUS ERROR FLAG 


2328 


005662 


032777 


000020 


172726 




BIT 


tf20,3SWR 


{SEE IF RETRY 


2329 


005670 


001434 








BEQ 


W5 


{IF NOT; BR 


2330 


005672 


013/03 


000/30 






MOV 


ERSAV.R3 




233 i 


005676 


042703 


102720 






BIC 


#102720 t R3 


{MASK UNRECOVERABLE ERROR 


2332 


005702 


001407 








BEQ 


W4 


{IF 50: BR 


2333 


005704 


004737 


022126 






JSR 


PC.PAPRT 


{PRINT HEADER 


2334 


005710 


000004 


025531 






TYPE 


.MSG78 


;TYPE M5G 


2335 


005714 


004737 


011066 






JSR 


PC.NRTP 


{PRINT ER FOR NON RETRYABLE 


2336 


005720 


000420 








BR 


W5 




233? 


005722 


013704 


000702 




W4: 


MOV 


UNP.R4 




2336 


005726 


005264 


001054 






INC 


RTYKR4) 


{BUMP RETRY CNTR 


2339 


005732 


032777 


002000 


172656 




BIT 


#2000,aSWR 


{SEE IF PRINT ERRORS 


2340 


005740 


001002 








BNE 


W4A 


{IF NOT: BR 


2341 


005742 


000004 


025301 






TYPE 


,MSG64 


;TYPE MSG 


2342 


005746 


005037 


000710 




W4A: 


CLR 


RTCNT 


{CLEAR RETRY NUMBER 


2343 


005752 


00503 7 


000706 






CLR 


RPCNT 


{CLEAR REPEAT COUNTER 


2344 


005756 


004737 


006300 






JSR 


PC.WRTY 


{GO RETRY WRITE ERROR 


2345 


005762 


005037 


000720 




W5: 


CLR 


RTYFL 


{CLEAR RETRY COUNTER 


2346 


005766 


005300 








DEC 


RO 


{SEE IF DONE ALL 


234 7 


005770 


001245 








BNE 


WO 


{IF NOT: BR 


2346 


005772 


005737 


000572 




W6; 


TST 


TMEX 


{SEE ir TM 


2349 


005/76 


001522 








BEQ 


WEX 


{IF NOT; BR 


2350 


006000 


005237 


000704 






INC 


TMFLG 


{SET TM FLAG 


2351 


006004 


012737 


025212 


000660 


WTM: 


MOV 


JMSG54.EMADDR 


{POINT TO TM ERROR MSG 


2352 


006012 


012737 


000026 


000700 




MOV 


026.MTC1 


{SET TM OP COOe 


2353 


006020 


0050 7 7 


1724 72 






CLR 


3f C 


j LOAD FRAME COUNTER 


2354 


006024 


013777 


000562 


1 72462 




MOV 


a^WDATA.aBA 


{LOAD BUS ADDRESS 


2355 


006032 


012737 


006044 


0006/0 




MOV 


rtWTMO.RTRN 


{SAVE RETURN ADDRESS 


2356 


006040 


000137 


020506 






JMP 


TAPG 


{WRITE TM 


235^ 


006044 


032777 


010000 


172544 


WTMOt 


BIT 


noooo, aswR 


{SEE IF SHOULD CHECK ERRORS 


2358 


006052 


001074 








BNE 


WEX 




2359 


006054 


032777 


000004 


172440 




BIT 


*4,3D5 


{SEE IF TM STATUS 


2360 


006062 


001011 








BNE 


WTM1 


t IF SO; BR 


2361 


006064 


013/37 


000562 


020340 




MOV 


34WDATA.CADER 


;SET EXPT BUS ADDRESS 


2362 


0060?2 


012737 


000001 


020346 




MOV 


n.DRVER 


{INDICATE ERROR 


236 3 


006100 


004737 


017466 






JSR 


PC.ERPT 


{PRINT TM ERROR 


2364 


006104 


000404 








BR 


WTM? 




2365 


006106 


013703 


000562 




UTM1: 


MOV 


a#WDATA t R3 


{SET EXPT ADORE SS 


2366 


006112 


004737 


016730 






JSR 


PC.ER2 


{GO CHECK FOR OTHER ERRORS 


236 7 


006116 


0057 3 7 


000720 




WTM2: 


TST 


RTYFL 


{SEE IF RETRt 


2368 


006122 


001401 








BEQ 


WTM3 


j IF NOT: BR 


2369 


006124 


000207 








RTS 


PC 


{ELSE RETURN TO REIKI ROUT I 


237C 


006126 


00573/ 


000714 




WTM3: 


TST 


SERFL 


;SEE U WRITE ERROR 


23/1 


006 1 32 


001444 








BEQ 


WEX 


j IK NOT; BR 


2372 


006134 


013704 


00070? 






MOV 


UNP , R4 




25/3 


006140 


005264 


0010/4 






TNC 


WTER1CR4 ) 


{BUMP WRITE ERROR 


23/4 


006144 


03277 7 


000020 


172444 




BIT 


#20 , aswR 


{SEE U SHOULD RETRl 


2375 


006152 


001434 








BEU 


WEX 


{IF NOT; BR 



SEQ 0051 



















N4 




C2TEDE0 


TM05-TU6/TU7 7 


DRT 


MAC 111 


30(1046) 


07- 


MAR -84 14:21 


PAGE 36-2 


CZTEDE. 


Pll 07-MAR-84 


14:04 














23 ?6 


006154 


013703 


000730 






MOV 


ERSAV.R3 






2377 


006160 


042703 


102720 






BIC 


#102720, R3 




MASK UNRECOVERABLE ERROR 


2378 


006164 


001407 








BEQ 


WTM4 




IF SO: BR 


2379 


006166 


004737 


022126 






J5R 


PC.PAPRT 




PRINT HEADER 


2380 


006172 


000004 


025531 






TYPE 


,MSG78 




TYPE MSG 


2381 


0061 76 


004737 


011066 






JSR 


PC, NRTP 




PRINT ER FOR NON -RETRYABLE 


2382 


006202 


000420 








BR 


WEX 






2383 


006204 


005037 


00070*= 




WTM4} 


CLR 


RPCNT 




CLEAR REPEAT CNTR 


2384 


0062 L0 


013704 


000 7 j2 






MOV 


UNP , R4 






2385 


006214 


005264 


001 ;54 






INC 


RTYKR4) 




BUMP RETRY CNTR 


2386 


006220 


005037 


0GC710 






CLR 


RTCNT 




CLEAR RETRY CNTR 


2387 


006224 


032777 


002000 


172364 




BIT 


#2000, SSWR 




SEE IF PRINT ERRORS 


2388 


006232 


001002 








BNE 


WTM4A 




IF NOT: BR 


2389 


006234 


000004 


025301 






TYPE 


.MSG64 




TYPE MSG 


2390 


006240 


004737 


006300 




WTM4A: 


JSR 


PC.WRTY 




GO DO RETRY 


2391 


006244 


005037 


000720 




WEX: 


CLR 


RTYFL 




CLEAR RE T RY FLAG 


2392 


006250 


005037 


000704 






CLR 


TMFLG 




CLEAR TAPE MARK FLAG 


2393 


006254 


005737 


000666 






1ST 


EOTREC 




BRANCH IF NOT AT E0 T 


2394 


006260 


100006 








BPL 


WRWX 






2395 


006262 


032777 


000014 


172326 


WPW: 


BIT 


#14,3SWR 




BRANCH If EITHER READ ENAB 


2396 


006270 


001002 








BNF. 


WRWX 






239 7 


006272 


000137 


004266 






JMP 


REOT 




ELSE REWIND 


2398 


006276 


000207 






WRWX: 


RTS 


PC 




EXIT 



SEQ 0052 



C 
C 



) 



C2UDE0 


TM03-n u. h».v 


DR1 


MACUl 


30C 1046) 


07 r 


1AF 


I 84 14 5 21 PAGf 3 7 


czte.de . 


PI l 0/ -MAR 34 


14:04 














2400 












i*«++***++*«*«+**+«**+*** 


2401 












1 WRITE 


ERROR RETRi 




2402 












1 








^40? 




















4.7404 




















2405 


006500 


012737 


000001 


000720 


WR T Y : 


MOV 




Ol.RTYFL j 


SET RETRY FLAG 


24 Oo 


006306 


004737 


006666 




WRTYO: 


JSR 




PC.WRTSB 


GO S D ACE REVERSF FOR REPEA 


24 or 


006312 


005 737 


000704 






TST 




TMFLG | 


SEE IF TAPE MARK TIME 


2408 


006316 


001003 








BNE 




WRTyTM 


IF SO: BR 


J40* 


006320 


004 73 7 


005504 






JSR 




PC . WO i 


REWRITE RECORD 


2410 


006324 


000402 








BR 




WRTYR 


GO ON 


.?4U 


006326 


004737 


006004 




WRTlTM. 


JSR 




PC.WTM 


GO WRITE TAPE MARK AGAIN 


2412 


006332 


00575 7 


000714 




WRTYRi 


TST 




SERFL | 


REWRITE GOOD 


2413 


006336 


001022 








BNE 




WR T 1 2 


IF NOT: BR 


2414 


006340 


005237 


000706 






INC 




RPCNT , 


BUMP REPEAT COUNTER 


2415 


006344 


022737 


000004 


000706 




CMP 




04, RPCNT , 


SEE IF FOUR GOOD REPEATS 


2416 


006352 


001355 








BNE 




WRTyO 


IF NOT: REPEAT 


24 1 : 


006354 


052777 


002000 


172234 




BIT 




02000, aSUR 


SEE IF PRINT 


2418 


006362 


00100 7 








BNE 




WRTYl 


IF NOT; RR 


241* 


006564 


000004 


025714 






type. 


.MSG105 


TYPE MSG 


5420 


006370 


000004 


025525 






type 


.MSG65 


TYPE MSG 


2421 


006574 


015703 


000710 






MOV 




RTCNT.R3 




24 22 


006400 


104400 








TyPOCT 




PRINT RETRY NUMBER 


2423 


006402 


00020 7 






ur»T>l: 


RTS 




PC 


RESUME TESTING 


2424 


006404 


013703 


0007 30 




WRTY2; 


MOV 




ERSA/.R3 


GET ER 


2425 


006410 


005057 


000656 






CLR 




TEMT5 


CLEAR RECOVERABLE ERROR IN 


2426 


006414 


042705 


102720 






BIC 




0102720. R3 


MASK RECOVERABLE BUS 


2427 


006420 


001412 








BEQ 




WRT12M 


IF RECOVERABLE: BR 


2426 


006422 


004 73 7 


022126 






JSR 




PC.PAPRT 


PRINT HEADER 


?4?9 


006426 


000004 


025531 






TtPE 


.MSG 7 8 


TYPE MSG 


24 50 


006432 


004757 


011066 






JSR 




PC.NRfP 


PRINI *R 


2431 


0064 36 


012757 


000001 


000656 




MOV 




♦ 1.TEKP3 


SET P. AG 


2432 


006444 


0O0406 








BR 




WRTY2B 




24?; 


006446 


052777 


002000 


172142 


WRTr2A: 


BIT 




02000 ,SSUR 


SEE !► PRINT 


..•4 34 


006454 


001022 








BNE 




WRTi3 


V NOT: BR 


24 55 


006456 


000004 


026124 






TYPE 


.MSG110 


TtPJ MSG 


24 36 


006462 


000004 


025523 




WRTY2B: 


TtPE. 


,M' 


>G65 


T tPF MSG 


24?; 


006466 


015705 


000710 






MOV 




RTCNT.R3 




24 38 


0064 72 


104400 








typoct 




PRINT RETRY NUMBER 


24 3'* 


0064 74 


000004 


026146 






TiPE 


,M< 


.Gill 


TYPE MSG 


2440 


006500 


013705 


000 70b 






MOV 




RPCNT ,R5 




2441 


006504 


104400 








TlPOCT 




PRINT REPEAT NUMBER 


2442 


006506 


005 737 


000656 






TST 




Ik MP 3 


SfE V DID NUN RECOVERABLE 


2445 


006512 


001403 








BEG 




WR r t 5 


I* NOT; BR 


2444 


006514 


00505 7 


000656 






CL R 




TFMP* 


CI EAR Fi AG 


2445 


006520 


0OO207 








RTS 




PC 


EXIT 


2446 


006522 


005757 


000 710 




WRTY3; 


TST 




RTCNT 


SEE IF FIRST RETRY 


244 ; 


006526 


001 004 








BNf 




WR 1 y SA 


IF NOT: BR 


,'44H 


0065 30 


015704 


000 702 






MOV 




UNP , R4 




244'* 


00*5 34 


005364 


001074 






DEC 




UHHHM4 ) 


OECRtMEM WRITf \ RROR CNTH 


2450 


C 06540 


013 704 


000 702 




WRTi3Aj 


MJV 




UNP.H4 


GE T i.*4l ! NL«MHt R 


24M 


000544 


016437 


0010*4 


000/36 




MOV 




H1A00RIR4 \tl!Pt 


ul l AODHf '.S Of UNI T UAU TA 


24 e , t . 


00^552 


01 7/04 


17,' 160 






MOV 




o)HrpT,R4 


Gt 1 COUNT* R 


,'4 f ,' 


00>. iS#-j 


005 724 








T',1 




I R4 ) • 


\ tit I POINTER OEF'itl 


,'454 


00*. 5**0 


0104 7 * 


l.VJV 






MJV 




R4 t dtnpt 




£455 


0Q6!fe4 


Q13/Q3 


0Q0'/5fc 






HUV 




UTPUR3 





SEQ 0055 



CNIK 






it iti Ki 

0/ MAR 



'.' OH! 
84 14;04 



MACtll &H 104(0 0/ MAR 84 14 ir"*l PAGE 5/ 1 



2456 

245; 

2458 
:4SQ 
2460 
2461 
2462 
2465 
24b4 
2465 
2466 
246 7 
2468 
246^ 
24 70 
24 ' 1 
24 ?2 
24 »3 
24 .'4 

24 ;s 

24 76 
24 77 
24 78 
24 ? 9 
2480 
2481 
248? 
2483 
2484 
2485 
2486 
248? 
2488 
2489 
2490 
2491 
2492 
249 5 
2494 
2495 
2496 

249 7 
2498 
2499 
2500 
2501 
250? 

250 5 
2504 
2505 
250b 
250/ 
,'50H 
,'509 
251.' 



0065 70 
006572 
0065 76 
006602 
006606 
006610 
0C6612 
006620 
006622 
006626 
006632 
006640 
006642 
006646 
006652 
006656 
006662 



006666 
006672 
006700 
006704 
006**12 
006 720 
006 724 
006730 
0067 36 
006 744 
006 750 
006754 
006760 
006764 
006 766 
006774 
006 7 76 
00 7002 
00 7006 
00 7010 
007012 
00/016 
00 /022 
00 /026 
00/034 
00/040 
00/046 
00/052 
CO 7056 
00/064 
00 .'o ;o 
00/0/4 
00/100 
00/102 



060304 
013714 
062704 
013/14 
160014 
005214 
022777 
001002 
000137 
00523 7 
022 .'3 7 
001410 
013704 
005264 
005237 
00013 7 
000137 



005037 
013737 
004737 
012737 
012777 
013703 
010377 
01273/ 
012737 
000137 
004 737 
004737 
005737 
001406 
012737 
022626 
000137 
005737 
001001 
00020 7 
005037 
005037 
005037 
01273/ 
005077 
012/37 
013/03 
01037/ 
012737 
00013/ 
004/3/ 
005 / 3 / 
001 /40 
000731 



00/104 
000710 
000004 

000702 

001054 

000/40 
006306 

007310 



000714 
000606 
011766 
025334 
1/7777 
000564 
171564 
000032 
006 750 
020506 
016730 
011766 
000714 



004 266 
000740 



000 740 
000/06 
000714 
025346 

171456 
000024 
000562 
1/1436 
00/070 
020506 
016/30 
000714 



SfcQ 0054 



000662 
000040 
000554 



000040 172116 



000710 



WRVY4 



0006/4 

000660 
171576 



000700 
0006 70 



WRTY5; 



WRTSB; 



IS 



000002 0007 32 WRTSBO: 



WRTSB1 



000660 
000700 

0006 70 



Us 



AOD R3.R4 

MOV BLCNTR.CR4) 

ADD G40.R4 

MOV RCNT.CR4) 

SUB R0.CR4) 

INC CR4) 

CMP *40,&*3TPT 

BNE WRT>4 

JMP BTOV 

INC RTCNT 

CMP 04, RTCNT 

BF.Q WRTY5 

MOV UNP.R4 

INC RTYKR4) 

INC ERTFL 

JMP WRTTO 

JMP BTU« 



56. T ABSOLUTt. POINTER 
SET BLOCK NUMBER 
AOD RCNT OEFSET 

SET RECORD NUMBER 

CORRECT RECORD NUMBER 

SEE IF TOO MANY HAD SPOTS 

IF NOT j BR 

ELSE GO TO BAD TAPE OVERFLOW 

RUMP RETRY COUNTER 

SEE IF DONE 4 RETRIES 

IF SO J BR 



BUMP RETRY COUNTER 
SET ERASE FLAG 
DO NEXT RETRt 
ELSE GO TO BAD TAPE 



UNRECOVERABLE 



{WRITE RETRY BACKSPACE -ERASE SUBROUTINE********** 



Cl.R SERM. 

MOV TSTAL.STAL 

JSR PC, STALL 

MOV *MSG66.?.MADDR 

MOV «-l,»"C 

MOV S0RDATA.R3 

MOV R3.3BA 

MOV G32.MTC1 

MOV ♦H.RTRN 

JMP TAPG 

JSR PC t ER2 

JSR PC .STALL 

TST SF.RFL 

BEQ URTSB1 

MOV 02.BTFIG 

CMP I SP ) ♦ , ( SP ) » 

JMP REOT 

TST ERTEl 

BNE WRTSB2 

RTS PC 

Cl.R ERIK 

Cl.R RPCNT 

ClR SfcRH. 

MOV *MSti6.\t'MADDR 

CLR &'C 

MOV 024.MTC1 

MOV o»OWDATA,R? 

MOV R3,b»A 

HOV 01I.HTHN 

JMP TAPl. 

JSR PC.ER2 

'■>! SERM 

Ht U WR T SB 1 

BR WR 1 ''.HO 



(CLEAR FLAG 

DO TURN AROUND DEI At 
SET ERROR CODE 
SET TO BACKSPACE 1 RECORD 
SET EXPECTED BA 

SET BACK SpACE OP coot 

SET RETURN PC 

EXECUTE BACKSPACE COMMAND 

CHECK ERRORS 

STAU. 

SEE IF ERROR 

IF NOT: BR 

SET F I rtli 



RESET STACK 

GO REWIND AND RfMtlvE 

SEE IF SHOULD ERASE 

I* SO: BR 

RETURN 

CLEAR ERASE H.AC 

CLEAR REPfc AT CNTR 

CLEAR FLAG 

SE T ERROR CODE 

CLEAR FRAME COUNT 

SE T ERASE OP -CODE 

SET EXPECTFD BA 

Sf T RE K)RN ADDRI SS 

GO ERASE 

GO CHECK * RRORS 

SEE U ERROR 

IF NOT; BR 



FROM TESTING 



I BAD TARE OVERFLOW SUBROUTINE********** 



c?n ot o 


J MO 3 U 


it. iv:: 


OKI 


CJUDl . 


►Ml 


? HAH 84 


14:04 


251? 








u } MJ 


00 7104 


00503/ 


000/20 


;M4 


00 71 10 


01 '737 


000001 


:ms 


oont6 


005 726 




2516 


OOU20 


00013 7 


004266 


251 : 


007124 


013701 


000736 


.?Mb 


007130 


005721 




JM« 


00*152 


005000 




2520 


O07. 1 34 


010003 




2521 


007136 


00024 I 




2522 


007140 


006003 




2523 


00714? 


104400 




2524 


007144 


000004 


024010 


2525 


007150 


011103 




2506 


007152 


104400 




25?/ 


007154 


000004 


024015 


2528 


00 7160 


062701 


000040 


25?<* 


00 7164 


012103 




^S30 


007166 


104400 




2531 


0071?o 


162701 


000040 


253? 


00 7174 


005720 




2533 


007176 


02007 7 


171534 


2534 


00/202 


001403 




2535 


007204 


000004 


024355 


2536 


00 7210 


000751 




2537 


007212 


005 737 


000734 


2538 


007216 


001 007 




2539 


00 7220 


012703 


00004 1 


2540 


007224 


013704 


000736 


2541 


00 7230 


005024 




254? 


00 7232 


005303 




254 3 


00 7234 


0013 75 




2544 


00 7236 


00020 7 





MAO 11 SOU 046 ) / MAR 64 14:21 



PAGE 3/2 



SEQ 0055 



000732 



PTOv: 



BTOVOj 



BTOVU 



2545 



BTOVc?: 



BT0V3: 



8T0VX: 



CLU 
MCV 
TST 
JMP 

MOV 
TST 
CLR 
MOV 

cue 

ROR 

T^POC 

TYPE, 

MOV 

TYPOC 

TYPE, 

ADD 

MOV 

TYPOC 

SUB 

TST 

CMP 

BEQ 

TYPE, 

BR 

TST 

BNE 

MOV 

MOV 

CLR 

DEC 

BNE 

RTS 



HTTR 

^♦DIHG 

(SP)» 

REOT 

BTPT.R1 

(Rl)» 

RO 

R0.R3 

R3 

MSG13»1 

(R1),R3 
T 
MSG14 

040, Rl 

(R1)»,R3 
1 

$40, Rl 

(R0)» 

R0.36TPT 

BTOV? 
MSG2B 

BT0V1 

BTSTF 

BTOVX 

041, R3 

BTPT.R4 

fR4)* 

HA 

BT0V3 

PC 



jCLEAR RETRt M At; 

t SET BAD TAPE OVERFLOW Fl AH 

j ♦ •B ADJUST STACK PTR 

iGO REWIND AND REMOVE FROM TESTING 

jSET TABLE POINTER 



R3-R3/2 FOR CORRECT NUMBER 
PRINT ENTRf NUMBER 
I TYPE MSG 

PRINT BLOCK NUMBER 

TYPE MSG 

SET POINTER OFFSET FUR RECOED NUMBER 

PRINT RECORD NUMBER 

RESET POINTER FOR BLOCK NUMBER 

SEE IF DONE 
IF SO: BR 
TYPE '<CR><LF«>' 
CONTINUF 

SEE IF STAT ONl. y PRINT 
IF SO; BR 
SET SUE OF TABLE 
SET POINTER 
CLEAR TABLE 
SEE U DONE 
I* NOT; BR 
{RETURN 



C/U.DIO 


TNO? 1> U- U'/.' 


DR1 


CZTEDF, 


Pll 07 -MAR -64 


14:04 


25' "* 








2548 








254<> 








2550 


00V240 


000004 


024 355 


2551 


00/244 


013704 


000702 


2552 


007250 


016437 


001034 


2553 


007256 


017703 


171454 


2554 


007262 


000241 




2555 


007264 


00(003 




2556 


007266 


104400 




2557 


007270 


000004 


026160 


2558 


007274 


0057 7 7 


171436 


2559 


007300 


00100L 




2560 


007302 


000207 




2561 


007304 


000137 


C07124 


25b2 








256? 








2564 








25b5 


007310 


004 75 7 


022126 


2566 


007314 


000004 


026013 


2567 


007320 


00020 7 




2569 
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BTPRT 



000736 



BTPRT1 



BTUR: 



SfcQ 0056 



{BAD TAPE. STATISTIC PRINT******** 

TYPE,MSG28 {TYPE '<CR><LF>' 

MOV LINP , R4 

MOV BTADDR(R4),BTPT {SET TABLE POINTER 

MOV BBTPT.R3 

CLC 

ROR R3 {CORRECT NUMBER 

TYPOCT , PRINT NUMBER OF BAD SPOTS 

TYPE.MSG112 :TYPE MSG 

TST QBTPT {SEE IF ANY BAD SPOTS 

BNE BTPRTt i IF SO; BR 

RTS PC {ELSE RETURN 

JMP 8T0V0 {PRINT STATS 

jBAD TAPE UNRECOVERABLE SUBROUTINE*** ♦*♦ ♦ *♦♦ 



JSR PC.PAPRT 
TYPE.MSG107 
RTS PC 



{PRINT HEADER 
{T1PE MSG 
{RESUME TESTING 



e/n oio imo3 

CZTEDE.P11 

25 ;o 

25 v 

25/3 

25 74 
2575 

25/o 

25 7* 
25 '8 

25 /9 
2?ao 

2581 
2582 

258? 
2584 
2585 
2586 
258? 
2588 



n it* iu.- ' ori 

07 -MAR -84 14;04 
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SfcQ 0057 



2590 
2591 
2592 
2593 
2594 
2595 
2596 
2597 

2598 
2599 

2600 
2601 
2602 
2603 
2b04 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
261 / 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 



007322 

007326 
00/332 
007336 
007340 
007346 
007350 
007356 
007360 
007366 
007372 
007400 
007402 
007406 
007410 
007416 
007422 
007424 
00 74 32 
007434 
00/440 
00/444 
007450 

007452 

007460 
00/466 
0074 70 
00/4/6 
007500 
007504 
007510 
00 7514 
00 /522 
00/524 
00/530 
00 7532 
00/540 
CO/ 54 4 
007552 



005037 
017 704 
042704 
001004 
032777 
001041 
032777 
001005 
012737 
004 73? 
032777 
001066 
005737 
001406 
013737 
004 737 
000406 
032777 
001002 
004737 
005037 
004^37 
000442 

01273? 
032777 
001012 
052/7/ 
001002 
004737 
005057 
004 737 
0527/7 
001015 
005/3/ 
001005 
017. /3/ 
004/37 
012/5/ 
004 737 



000570 
171264 
1/7763 

000002 

000004 

000001 
007576 

000010 

000570 



000606 
011766 



011514 
0005 70 
007576 



011514 
0005/0 
007576 
000004 

0005/0 

000606 
011/66 

000001 
007576 



RSEG1 

171250 
171240 RSR: 
000570 
171216 RSF: 



0006 74 
000001 171164 RSFO: 

RSF'l: 



000001 000570 RSFR: 
0000 10 171130 

000001 171120 



RSFRO: 
171074 RSFRli 

0006/4 

0005 70 RSFR2; 



{READ SEQUENCER: 

;THIS ROUTINE IS USED TO DETERMINE THE SEQUENCE 
j IN WHICH READ TAPE OPERATIONS ARE TO BE PERFORMED. 
{THIS IS NECESSARY WHEN THE UNIT BEING TESTED IS 
{CAPABLE OF READING DATA IN BOTH THE FORWARD AND 
{REVERSE DIRECTIONS, CONSOLE SWITCHES ONE (1), TWO (2) 
-.AND THREE C3) ARE USED TO DETERMINE THE READ SEQUENCE. 
{CONSOLE SWITCH ONE CD DETERMINES WHETHER TO READ 
{THE BLOCK OF DATA FORWARD FIRST OR REVERSE FIRST. 
{SWITCH TWO (2) DISALLOWS READING IN THE REVERSE 
{DIRECTION AND SWITCH THREE C3) DISALLOWS READING IN 
{THE FORWARD DIRECTION. 



CLR RDCMD 

MOV SSWR,R4 

BIC 0177763, R4 

BNE RSR 

BIT 02.8SWR 

BNE RSFR 

BIT 04,SSWR 

BNE RSF 

MOV 01, RDCMD 

JSR PC. READ 

BIT 010.SSWR 

BNE RSEX 

TST ROCMD {SEE A : 

BEQ RSFO 

MOV TSTAL.SIAL 

JSR PC .STALL 

BR RSFl 

BIT Ol.SSWR 

BNE RSFl 

JSR PC.BKSP 

CLR RDCMO 

JSR PC, READ 

BR RSEX 

MOV 01, RDCMD 

BIT oio.aswR 

BNE HSFR1 

BIT OI.WSWR 

BNl RSKRO 

JSR PC.BKSP 

CLR RDCMD 

JSR PC, READ 

BIT 04,SSWR 

BNE RSEX 

TST RDCMD 

BNE" RSFR 2 

MOV TSTAl ,51A1. 

JSR PC, 5 TALI 

MOV Ol.RDCMQ 

JSR PC, RE AD 



{READ SWITCHES 


{MASK READ BITS 6 SEE IF BO 


(IF 


NOT: 


BR 


{SEE 


. IF 


READ REVERSE FIRST 


I IF 


NOT: 


BR 


;SEE 


IF 


SHOULD READ REVERSE. 


;IF 


NOT: 


BR 


{LOAD READ REVERSE COMMAND 


5 GO 


READ 


REVERSE 


{SEE 


IF 


SHOULD READ FORWARD 


{IF 


NOT: 


BR 


HAVE 


. READ REVERSE 


J IF 


NOT: 


BR 


}D0 


READ 


STALL 


{SEfc 


IF 


WRITE 


J IF 


NOT : 


BR 


{GO 


BACKSPACE 


jlOAD READ FORWARD COMMAND 


{GO 


READ 




{GO 


TO EXIT 


{SEE 


. IF 


SHOULD READ FORWARD 


J IF 


NOT: 


BR 


J SEE 


. IF 


WRITE 


J IF 


NOT; 


BR 


j GO 


BACKSPACE TO START 


{LOAD READ FORWARD COMMAND 


j GO 


READ 


FORWARD 


,SEE 


IF 


SHOULD READ REVERSE 


J IF 


NOT: 


BR 


I IF 


READ 


REVERSE: BR 


{DO 


READ 


ST At 1 



READS 



{I OAD READ REVERSE 
5GQ READ REVERSE 



C/Tt.Df.PTl 



TLlo Tl'.V DRi 
7 -MAR -94 14 ? 04 



,2651 



007^56 

00 75ft^ 

00 7566 

007574 



005037 

005737 

00140,7 
000137 
000207 



000570 

000666 

004266 



G i: . 
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RStX: 



rsfrx 



Ct.R 

tst 

BfcQ 
JMP 

RTS 



RDCMD 
EOTREC 
RSFRX 
RF.OT 

PC 



SEQ 0058 



jBRANCH IF COT NOT REACHED 

(REWIND AND REPORT STATS 
{EXIT 



C/ U.DEO IM03 

CZTEDE.PL1 



2t*35 

2634 
2635 
2*3t> 
263* 
2o38 

2M0 
2641 
2642 
2643 
2c»44 
2645 
2646 

264 ' 
2<?48 
264^ 
2650 
2651 

2653 
2654 
2655 
2656 

265 .* 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
26 70 
26/1 
2672 
26 73 
26 74 
26 75 
26 76 
267/ 
26 78 
26 79 
2680 
2681 
2682 
2683 
2684 
2685 

2 6 '3 6 
2*. 8 ; 

2688 



n i6 u>.\- on) 

07 MAR -84 14; 04 
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CT 



;Q 0059 



00/5/6 
00 7602 
007606 
007610 
00 7614 
0C7616 
00 7624 
007630 
00/632 
007634 
00 7642 
00 7646 
007652 
00/654 
00 7660 
00 7662 
00 /6b6 
00 76V 
00 7676 
00 7 704 
007710 
007/12 
O0 7 71o 
00 7 720 
00/726 
CO 7 730 
007 7 32 
00 7 734 
00/740 
007 746 



015 700 
005737 
100012 
005737 
001407 
042737 
013703 
1.60300 
005200 
012737 
00503 7 
005737 
001406 
005737 
001403 
00523 7 
005200 
013777 
013777 
005737 
001417 
013703 
005103 
032737 
001402 
000541 
006005 
0605 7/ 
012/V 
000403 



000554 
000666 

000570 

1000;m 
000666 



023755 
000704 
000570 

000572 

000704 

000556 
000564 
000570 

000556 



1 70554 
0000 /t> 



READ 



000666 



000660 RDA: 



170620 RDO: 
170610 



000020 000552 



000700 



ROlj 



**************************************************** 

READ ROUTINE; 

THIS ROUTINE PERFORMS THE READ OPERATION DETERMINED 

B^ THE READ SEQUENCE ROUTINE ONE RECORD AT A TIME. 

AT THE END OF EACH READ OPERATION THE STATUS REGISTER 

IS SCANNED FOR EITHER END OF TAPE OR BEGINNING OF TAPE. 

IF EOT WAS REACHED, CONTROL WILL BE PASSED TO 

THE EOT SUBROUTINE TO REWIND THE UNIT AND FLAG IT 

UNAVAILABLE UNTIL ALL UNIT J HAVE REACHED EOT. 

IF DOT WAS REACHED AN ERROR IS PRINTED AND THE 

PROGRAM WILL HALT. TESTING MAY BE RESUMED BY PRESSING 

THE CONTINUE SWITCH, 

IF A TAPE MARK IS EXPECTED (TM-1) THEN THE 

READ ROUTINE EXPECTS THE FIRST RECORD OF A 

READ REVERSE TO BE A TM, AND THE LAST RECORD 

OF A READ FORWARD TO BE A TM. REMEMBER 

THAT THE TM ADDS ONE (1) TO THE TOTAL NUMBER 

OF RECORDS IN A BLOCK. 

CONSOLE SWITCHES ELEVEN (11) AND THIRTEEN (13) DETERMINE WHETHER 

OR NOT TO CHECK FOR STATUS ERRORS (11) OR DATA ERRORS (13). 

CONSOLE SWITCH FIVE (5) IS USED 10 CAUSE A CONTINUOUS 

READ AND SPACE (FORWARD OR REVERSE) OF THE CURRENT 

RECORD ON TAPE O0ZZLE). 

******************* *6****** *********** ********,********* 



MOV RCNT.RO 

TST EOTREC 

BPL RDA 

TST RDCMD 

REQ RDA 

BIC * 100000, EOTREC 

MOV EOTREC, R3 

SUB R3.R0 

INC RO 

MOV flMS(,6,EMADDR 

CLR TMF'l.L". 

TST RDCMD 

BEQ RDO 

TST TMtx 

BEQ RDO 

INC TMFLG 

INC HO 

MOV FMCNT.afC 

MOV a^RDATA,o)BA 

TST RDCMD 

BEQ KlUrt 

MOV FMCNT.R3 

COM M3 

BIT 02O.UDES 

RFQ R01 

Cl C 

HOR H3 

ADD RS.tfBA 

MOV 0/6.MTC1 

BR R01B 



jLOAD REC CNTR 

;SEE IF EOT 

ilF NOT; BR 

I SEE IF READ FORWARD 

t IF SO: BR 

iCLEAR FLAG 

;GET MODIFIED RECORD COUNT 

jSET RECORD AT 

} SET TO PROPER NUMBER OF RECORDS 

I SET ERROR MSG ADDRESS 



j IF READ FORWARD; 
j SEE IF TM 
I IF NOT; BR 
{SET TM FLAG 



BR 



j LOAD 
{LOAD 



CHAR 
DATA 



CNTR 

ADDR 



j SEE IF 

j IF NOT 



j SEE IF 

ilF NOT 



READ 
BR 



CORE 
BR 



REVERSE 



DUMP 



(W3 * VQ-'? 

jSM REVERSE BUS ADDRESS 

jSET READ REVERSE 



C/Il [)\.0 1M05 
C2Tt.Dt-.Plt 



n i6 rui 1 / dpi 

07 MAR -84 14 



04 
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SEQ 0060 



2669 

2690 
2691 

2693 
2694 
2695 
2696 
269 7 
2698 
2699 
2/00 
2701 
2702 
2 703 
2704 
2 705 
2 706 
2707 
2708 
2 709 
2710 
2711 
2712 
2713 
2/14 
2715 
2716 
2717 
2718 
2719 
2 720 
2721 
2722 
2 7 23 
2 724 
2 725 
2 726 
2727 
2 728 
2729 
2 7 30 
2731 
273? 
2733 
2/34 
2 735 
2 736 
2737 
2736 
2739 
2 740 
2 741 
2 74? 
2 /a < 
2744 



007750 
007756 
007764 
007770 
0077 74 
007 7 76 
010004 
010006 
010012 
010014 
0J0020 
010026 
010034 
010036 
010042 
010046 
010050 
010054 
010062 
010064 
010070 
010072 
010100 
010102 
010110 
010116 
010122 
010126 
010132 
010134 
010140 
010142 
010146 
010150 
010154 
010160 
010162 
010170 
010172 
010176 
010200 
010204 
010206 
010214 
010216 
010220 
010222 
010224 
010230 
010236 
010240 
010244 
010250 
010252 
010256 
010262 



012737 
012737 
000137 
005737 
001014 
032777 
001410 
005737 
001005 
010037 
052737 
032777 
001407 
004737 
000004 
000000 
OOC137 
032777 
001116 
005737 
001470 
032777 
001023 
013737 
012737 
004737 
013704 
005737 
001403 
005264 
000500 
005264 
000475 
013703 
005737 
001007 
032737 
001025 
062703 
000422 
013704 
005104 
032737 
001402 
000241 
006004 
060403 
042703 
032737 
001002 
162703 
004 737 
00040? 
004 737 
005737 
00X416 



000070 
007770 
020506 
000570 

002000 

000704 

000666 
100000 
000002 

022126 
024113 

003256 
004000 

000704 

000004 

000564 
000002 
017466 
000702 
000570 

001154 

001114 

000564 

000570 

002000 
000002 
000556 
000020 



oooooi 

002000 

000002 
016730 

016636 
000714 



000 700 R01A 
000670 RD1B 



RD2; 



170516 



000666 
170466 RD3: 



170534 RD4: 



170422 



020340 
020346 



1$; 
RD4A; 



000552 



RD4A0 



000552 



OOOb^a 



RD4A1 



RD4A2 

RD4H: 
RD4C: 



MOV 

MOV 

JMP 

T5T 

BNE 

BIT 

BEQ 

T5T 

BNE 

MOV 

BIS 

BTT 

BEQ 

JSR 

TYPE 

HALT 

JMP 

BIT 

BNE 

T5T 

BEQ 

BIT 

BNE 

MOV 

MOV 

JSR 

MOV 

T5T 

BEQ 

INC 

BR 

INC 

BR 

MOW 

1ST 

BNE 

BIT 

BNE 

ADD 

BR 

MOV 

COM 

BIT 

BEQ 

Cl.C 

ROR 

ADD 

BIC 

BIT 

BNE 

SUB 

JsR 

BR 

JSR 

TST 

BEQ 



0/0.MTC1 
0RD2.RTRN 
TAPG 
RDCMO 
RD3 

02000, SDS 
RD3 
TMELG 
R03 

RO.EOTREC 
0100000, EOTREC 
02, SOS 
RD4 

PC,PAPRT 
•MSG22 

STARTA 

O40O0.3SWR 

RD5 

TMFLG 

RD4B 

04, SOS 

R04A 

SORDATA.CAOER 

02.DRVER 

PCERPT 

UNP,R4 

RDCMO 

n 

RDERM1CR4 ) 

RD6 

PDERKR4, 

RD6 

QORDATA,R* 

ROCMD 

RD4A0 

02000, UDES 

RD4A? 

02, R3 

RD4A2 

FMCNT.R4 

R4 

020.UOES 

R04A1 

R4 

R4.R3 

01, R3 

02000, UDES 

R04A? 

0?, R3 

PC.ER? 

RD4C 

PC.f.HCMK 

SERKL 

RD5 



j SET READ FORWARD 

{SET INTERRUPT RETURN ADDRESS 

jGO EXECUTE TAPE COMMAND 

j IGNORE EOT IF READ REVERSE 

{SEE IF EOT 

tIF NOT; BR 

{SEE IF TM 

;IF SO; BR 

{GET OF RECORDS LEFT IN BLOCK TO READ 

;SET EOT FLAG 

;SEE IF AT LOAD POINT 

j IF NOT; BR 

{PRINT CYCLE NUMBER 

{TYPE MSG 



, RESTART 

{SEE IF SHOULD 

»IF NOT; BR 



CHECK ERRORS 



jIF NO TM EXPT: BR 

;IF TM RECVD: BR 
;SAVE EXPT BUS ADDRESS 
;SET TM STATUS ERROR FLAG 
{GO PRINT TM ERROR 

;SEE IF READ REVERSE 

j IF NOT; BR 

{BUMP READ REVERSE ERROR 

{BUMP READ FORWARD ERROR 



;SEE IF READ REVERSE 

»U SO; BR 

{SEE V IN PE 

{IF SO; BR 



;SEE IF CORE DUMP 
j IF NOT; BR 

;SET TO FC/2 

{SET EXPT BUS ADDRESS 
{MAKE FXPT ADDRESS EVEN 
jSEE IF IN PE 
{ IF SO: BR 



j GO CHtC\< ERRORS 
tIF NO ERROR? BR 



CZ 11.01:0 


TM03-TE16/TU77 


DRT 


MACY11 30(1046) 


07 -MAR 


J") 
-64 14:21 PAGE 


40-2 


CZTEDE* 


Pll 07-MAR-84 


14:04 










2/45 


010264 


013704 


000702 




MOV 


UNP.R4 




2746 


010270 


005737 


0005 70 




TST 


ROCMD 


iSEE IF READ REVERSE 


274? 


010274 


001003 






BNE 


RD40 


j IF SO: BR 


2748 


010276 


005264 


001114 




INC 


RDER1CR4) 


j BUMP READ FORWARD ERROR 


2749 


010302 


000402 






BR 


RD4E 




2750 


010304 


005264 


001154 


RD4D: 


INC 


RDERRKR4) 


j BUMP READ REVERSE ERROR 


2751 


010310 


004737 


010506 


RD4E; 


JSR 


PC.RDRTY 


{GO RETRY 


2752 


01031.4 


005037 


000720 




CLR 


RTYFL 


{CLEAR RETRY FLAG 


2753 


010320 


032777 


020000 


170270 RD5: 


BIT 


420000, SJSWR 


{SEE IF SHOULD DO DATA C 


2754 


010326 


001005 






BNF 


RD6 


{IF NOT: BR 


2755 


010330 


005737 


000704 




1ST 


TMFLG 




2/56 


010334 


001002 






BNF. 


RD6 




2757 


010336 


004737 


015064 




JSR 


PC.OCHK 


iGO CHECK DATA 


2758 


010342 


005037 


000 714 


RD6: 


CLR 


SERFL 


iCLEAR STATUS ERROR Fi AG 


2759 


010346 


004737 


013730 




JSR 


PC.DS3 


{CLEAR BUFFER 


2760 


010352 


032777 


000040 


170236 


BIT 


440,3SWR 


j SEE IF SHOULD tOZZLE 


2 761 


010360 


001402 






BEQ 


R07 


j IE NOT: BR 


2762 


010362 


004737 


011102 




JSR 


PC.YOZ 


{ELSE GO YOZZLE 


2 763 


010366 


013737 


000602 


000674 R07: 


MOV 


RSTAL.STAL 


•SET DELAY 


2764 


010374 


004 737 


011766 




JSR 


PC, STALL 


{STALL 


2765 


010400 


005737 


000570 




TST 


ROCMO 


{SEE IF READ REVERSE 


2766 


010404 


001403 






BEQ 


RD7A 


j IF NOT: BR 


2767 


010406 


005037 


000704 




CLR 


TMFLG 


{CLEAR TAPE MARK FLAG 


2768 


010412 


000405 






BR 


RD10 




2 769 


010414 


005 73 7 


000666 


RD7A: 


TST 


EOTREC 


j SEE IF EOT FOUND 


27 70 


010420 


100002 






BPL 


RD10 


:IF NOT? BR 


2771 


010422 


012700 


000001 




MOV 


01, RO 


iSfc'T TO EOT 


27 72 


010426 


005300 




RD10: 


DEC 


RO 




2773 


0104 30 


001402 






BEQ 


RD11 


t IF DONE ALL; BR 


2 7 74 


010432 


000137 


007670 




JMP 


ROO 




2775 


0104 36 


005 737 


000570 


RDli: 


TST 


RDCMO 


tSEE IF READ REVERSE 


27 76 


010442 


001016 






BNE 


ROEX 


j IF SO: BR 


2 7 7 7 


010444 


005737 


000666 




TST 


EOTREC 


{SEE IF FOUND EOT 


27 78 


010450 


100413 






BMI 


ROEX 


j IF SO: BR 


2 779 


010452 


005737 


000572 




TST 


TMEX 


{SEE V TM EXPECTED 


2 780 


010456 


001410 






BEQ 


ROEX 


{If NOT: BR 


2 781 


010460 


005737 


000704 




TST 


ThfLG 


{SEE IF TM FOUND 


2782 


01046' 


001005 






BNE 


RDEX 


{IF SO: BR 


2783 


010466 


C05237 


000704 




INC 


im» 1 g 


;ELSE SE T FLAG 


2 784 


0104 U 


005^00 






INC 


RO 


jSET RECORD COUNT TO ONE 


2/85 


0104 74 


000137 


00 ft 70 




JMP 


RDO 


{GO READ TM 


2/86 


01 0500 


0050 3/ 


000704 


RDl X; 


CLR 


TMFLG 




2787 


010504 


000207 




ROX; 


RIS 


PC 


{EXIT 



SEQ 0061 



CHECK 



CTEDEO 


TM03- Tl.lt tu.v 


DR1 


CZTEDE. 


PI I 07-MAR-84 


14»04 


2 r&* 

2790 








27^L 








2 W 








279? 








2 '94 








2795 








2 W 








2 W ,' 








2796 








2 "99 








^600 


01050b 


0327 7/ 


000050 


2601 


010514 


001001 




2802 


010516 


00020/ 




2805 








2804 


010520 


015703 


000730 


2805 


010524 


022703 


100000 


2806 


010530 


001011 




280 7 


010532 


032777 


0C0040 


2808 


010540 


001405 




2609 


010542 


005037 


000714 


2810 


010546 


000004 


026504 


2811 


010552 


00044 7 




2612 


010554 


042703 


102720 


2813 


010560 


001407 




2814 


010562 


004 737 


022126 


2615 


010566 


000004 


025571 


2816 


010572 


004 737 


011066 


2817 


010576 


000207 




2818 


010600 


032777 


002000 


2819 


010606 


001002 




2820 


010610 


000004 


025301 


2821 


010614 


00503/ 


000710 


2822 


010620 


005037 


000 714 


2823 


010624 


012737 


000002 


2824 


010632 


004737 


011102 


2825 


010636 


005/37 


000714 


2826 


010642 


001026 




282 7 


010644 


032777 


002000 


2828 


010652 


00100/ 




2829 


010654 


000004 


025714 


2630 


010660 


000004 


025323 


2631 


010664 


013703 


000710 


2832 


010b70 


104400 




28 33 


0106/2 


013704 


000 /02 


2834 


0106 76 


005737 


0005 70 


2835 


010702 


001003 




28 36 


010/04 


005264 


002674 


283 7 


010/10 


000402 




2838 


010712 


005264 


002714 


26 39 


010716 


000207 




2H4 


010720 


013703 


000/30 


284 1 


010724 


00503 7 


0006 5 h 


284 t ' 


CUOMO 


042 703 


102720 


284 *. 


010734 


0014U 




2844 


010736 


004/37 


022126 
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SEQ 0062 



170102 RDRTY: 



RDRTO: 



167762 



1$: 



170010 RDRT1: 



000720 



167744 



RDRT1B 
RDRTG: 



RDRT2 



R0RT3 
RDRT4 
RDRT5 



» * + * + *♦ + + *♦***♦ + + *♦♦* + + ** + ♦** + ****** + * + + + **** + ***** + * 
i READ ERROR RETRY SUBROUTINE: 

j THIS SUBROUTINE WILL RETRY ALL DATA RELATLD 
{READ ERRORS UP TO EIGHT C8) TIMES. IF ALL 
{FOUR RETRIES ARE BAD, IT IS CONSIDERED 
;A HARD ERROR. IF ANY ARE GOOD. IT lb A 
{SOFT ERROR. RETRIES MAY BE INHIBITED 
{VIA SWITCH FOUR (SW4-0: INHIBIT RETRIES) 

; 4****4**** + * + + *********** ***+*++******4***** ******* * 



BTT 


02O.3SWR 


bne: 


RDRTO 


RTS 


PC 


MOV 


ERSAV.R3 


CMP 


O1000O0.R3 


BNF 


15 


BIT 


040,6)OS 


BEQ 


1$ 


CLR 


SfcRFL 



TYPE.MSG124 

BR RDRT2 

BIC 0102720, R3 

BEQ RDRT1 

JSR PC.PAPRT 

TYPE.MSG79 

JSR PC.NRTP 

RTS PC 

BIT 0200C,S)SWR 

BNE RDRT1B 

TYPE.MSG64 

CLR RTCNT 

CLR SERFL 

MOV «2,Rm*L 

JSR PC.YO/ 

TST SERFL 

BNF RDRT5 

BIT 02000, tfSWR 

BNE RDRT2 

TYPE.MSG105 

TTPE.MSG65 



MOV 

1YPUCT 

MOV 

TST 

BNE 

INC 

BR 

INC 

RTS 

MOV 

a r 

BIC 
HI Q 
JSR 



RTCNT, R3 

UNP , R4 

RDCMD 

RDRT3 

RFS0FTCR4) 

RDRT4 

RRS0FTCR4 ) 

PC 

FRSAV.R3 

TEMP3 

0102720. R3 

RDHT5A 

PC.PAPRT 



{SEE IF RETRY 
j IF NOT: BR 
{ELSE RETURN 



INHIBITED 



♦ ♦B BRANCH IF OTHER THAN CORRECTED READ ERROR 

♦ ♦B BRANCH IE mz 
{ >*B 

♦ ♦6 

♦ ♦B 

♦ *B 
MARK 



DATA ERROR' 



CLEAR ERROR FLAG 
TYPE ' CORRECTED PE 
INC SOFT COUNTS 
NON -RECOVERABLE ERROR BITS 



j IF NOT: BR 
{PRINT HEADER 

{TYPE MSG 

{PRINT ER FOR NON -RETRY ABLE ERROR 

{RETURN 

{SEE IF PRINT INHIBITED 

{IF SO: BR 

{TYPE MSG 

{CLEAR RETRY COUNTER 

{CLEAR STATUS ERROR FLAG 

SET READ RETRt F\ AG 

GO TO YOZ/LE TO RETRY READ 

SEE U RETRY ERROR 

IF SO: BR 



{TYPE MSG 

{TYPE MSG 

{PRINT RETRY NUMBER 

{SEE IF READ REVERSE 

{IF SO: BR 

jELSO BUMP FORWARD SOFT cRROR COUNTER 

BUMP ERRORS SOFT CNTR 
RETURN 

GET ER 

CLEAR RECUVERAB1F ERROR INDICATOR 
MASK RECOVERABLE HITS 
U Rt COVER ABLE: BR 
{PRINT HEADER 



C/UDIO JM03 
CZTEDE.P11 



TF Ih.TU 

07-MAR 



'/ DRT 
84 14 : 04 



15 

MACU1 30(1046) 07 -MAR -84 14;21 PAGE 41-1 



2845 
2846 

284 ' 
2848 
,^84Q 
2850 
2851 

2852 

285? 
2854 
2855 
2856 

285 7 
2858 
2859 
2860 
2861 
286^ 

286 5 
2864 
2865 
2866 
286? 
2868 
2869 
28 70 
28 71 
2872 
28 7? 
28 74 
28 75 
28 76 
28/7 
28 78 
28 79 
2880 
2881 
2882 
288? 
2884 
2885 
2886 
288/ 
2888 
2884 
2890 
2891 
2892 
2893 
2894 
2895 
2896 
289/ 
28 98 
289'-* 
2900 



010/42 
010746 
010752 
010760 
010 762 
010770 
010772 
010776 
011002 
011004 
011010 
011012 
011016 
011020 
011024 
011052 
011034 
011040 
011044 
011050 
011052 
011056 
011060 
011064 

011066 

011072 
011074 
011100 



011102 
01U10 
011114 
011122 
011126 
011130 
01113b 
011140 
011146 
011154 
011162 
011166 
011172 
011174 



000004 
004 737 
012737 
000404 
0327 77 
001013 
000004 
013703 
104400 
005737 
001403 
005037 
000207 
005237 
023737 
001272 
000004 
013704 
005737 
001003 
005264 
000402 
005264 
000207 

013703 

104400 
004 737 
000207 



013737 
004 737 
0' '"7 
OC . 7 
001404 
112737 
000403 
112737 
012737 
012 737 
000137 
00573 7 
001404 
013737 



025571 

011066 
000001 

002000 

025323 

000710 

000656 

000656 

000710 
000710 

026223 

000702 
0005 70 

002734 

002754 

000730 
020364 



000610 
011766 
177777 

000570 



0000 32 
011166 
177 7 75 
020506 

000704 



SEQ 0063 



000656 
167626 



RDRT5A; 
RDRT5B; 



000612 



RDRT6; 



RDRT7: 
RDRTX: 

NRTP; 



000674 
167374 



000030 000700 



000/00 
0006 70 
0006 74 



YOZ: 
YQ^O; 



YO/A: 

YU/B: 



YU/Xl 



TYPE, MSG 79 

JSR PC, NRTP 

MOV M.TEMP3 

BR RDRT5B 

BIT 02000 ,S)SWR 

BNE RDRT6 

TYPE.MSG65 

MOV RTCNT, R3 

TYPOCT 

TST TEMP3 

BEQ RDRT6 

CLR TEMPS 

RTS PC 

INC RTCNT 

CMP RTCNT, RETRY 

BNE RORTG 

TYPE.MSG115 

MOV UNP,R4 

TST ROCMD 

BNE RDRT7 

INC RFHARDCR4Y 

BR RDRTX 

INC RRHARDCR4) 

RTS PC 

MOV ERSAV.R3 

TYPOCT 

JSR PC.PRPRT 

RTS PC 



» TYPE M5G 
{PRINT ER 
{SET FLAG 

(SEE IF PRINT INHIBITED 
lIF SO; BR 
j TYPE MSG 

SPRINT RETRY NUMBER 

iSF.E IF DID NON-RECOVERABLE 

I If NOT; BR 

! CLEAR FLAG 

SEXIT 

? SEE IF DONE 8 RETRIES 
{IF NOT: BR 
j TYPE MSG 

{SEE IF" READ REVERSF 
{IF SO: BR 

jBUMP FORWARD HARD ERROR CNTR 

{BUMP REVERSE HARD ERROR CNTR 
{RETURN 

sGET ER REGISTER 
{PRINT ER 
{PRINT F OR R 

{RETURN 



I*******************,********************************* 



J 



YOZZLE SUBROUTINE? 

THIS SUBROUTINE, ENTERED VIA SUITCH FIVE f5), IS USED TO PERFORM 

A CONTINUOUS READ AND SPACE OVER OF THE CURRENT RECORD ON TAPE. 

FULL STATUS AND DATA CHECKING MAY BE PERFORMED 

OR NOT VIA CONSOLE SWITCHES ELEVEN (tU AND THIRTEEN (13), 

A SOFTWARE DELAY IS PERFORMED BETWEEN EACH READ 

AND SPACE OPERATION AND MAY BE VARIED BY TYPING 

CNTRL C ON THE TTi AND ENTERING A VALUE IN RESPONSE 

TO THE PRINTED REQUEST. 

******************* + * + ***.*****************************. 



040000 0006 74 



MOV YSTAL,STAL 

JSR PC, STALL 

MOV tf-l.aFC 

TST ROCMD 

BEQ tO/rt 

MOVB 03O.MTC1 

BR YUZB 

MOVB 032.MTC1 

MUV <MO/C.RTRN 

MUV #1/77/5, ST Al 

JMP TAPG 

TST TMFLG 

HI Q 1 i 

MOV #40000, STAL 



{DO YOZZl E STALL 

{SET TO I RECORD SPACING 

{SEE IF READ REVERSF 

I IF NOT; BR 

{SET TO SPACE FORWARD 

j SET TO SPACE REVERSE 
jSFT RETURN ADDRESS 
jSFT TIME MULTIPLIER 

GO to/ /I h 

SEE IF IM 

If NO! : BR 
{SET TM STALL 



C/TtDEO 1M03 
CZTEDE.PU 



It 16/TU.V OPT 
07 -MAR -84 14:04 
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Mr-. 
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2901 
2902 
2903 
2904 
2^05 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2913 
2914 
291f> 
2916 
2917 
2918 
2919 
2920 
2^21 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2924 
2930 
2931 
2932 
2933 
2934 
293:. 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
294 3 
2944 
294 r j 
2946 
294 7 
2948 
2949 
2950 
2951 
2952 
2955 
2954 
2955 
2^56 



011202 
011204 

011212 
011216 
011224 
011230 
011232 
011236 
011240 
011246 
011250 
011252 
011256 
011264 
011266 
011274 
011302 
011310 
011314 
011322 
011324 
011330 
011332 
011336 
011340 
011344 
011350 
011352 
011360 
01.1362 
011364 
011366 
011372 
011400 
011402 
011404 
011410 
011412 
011416 
011424 
011426 
011430 
011434 
011436 
011442 
011446 
011450 
011456 
011460 
011464 
011466 
011472 
0114/6 
011504 
011506 
011512 



000403 
013737 
004737 
013777 
005737 
001416 
013703 
005103 
032737 
001401 
006203 
060377 
012737 
000403 
012737 
013777 
012737 
000137 
032777 
001047 
005737 
001442 
005737 
001425 
013703 
013704 
005104 
032737 
001401 
006204 
060403 
042703 
032737 
001001 
005743 
004737 
000430 
013703 
032737 
001001 
005 723 
004737 
000416 
004737 
005737 
001013 
032777 
,005 
CC' r 737 
001002 
004 737 
004 737 
032777 
001402 
000157 
000207 



000610 
011766 
000564 
000570 

000556 

000020 



167236 
000076 

000070 
000556 
011314 
020506 
004000 

000704 

000570 

000564 
000556 



000001 
002000 



016730 

000564 
002000 



016730 

016636 
000720 

020000 

000704 

015064 
013730 
000040 

011114 



SEQ 0064 



C 

c 



000674 1$: 
2$: 
167270 



000552 



000700 



000020 000552 



000552 



000552 



167140 



YOZCO 



000700 Y0ZC1 

167214 Y0ZC2 
000670 

167274 YOZD: 



Y0ZD4 

Y0ZD2 
YOZDO 

Y0/03 

Y0Z01 
YOZE: 



^0/F 

167112 rOZG 



YQ/H 



BR 2* 

MOV YSTAL.STAl. 

JSR PC .STALL 

MOV QV>RDATA t BBA 

TST RDCMD 

BEQ Y0ZC1 

MOV FMCNT\R3 

COM R3 

BIT 020,UDES 

BEQ YOZCO 

ASR R3 

ADD R3,3BA 

MOV 076.MTCI 

BR Y0ZC2 

MOV 070.MTC1 

mov rhCNT.arc 

MOV OYOZD.RTRN 

JMP TAPG 

BIT 04000, 3SWR 

BNE YOZE 

TST TMFLG 

BFQ Y0ZD1 

TST RDCMD 

BEQ YOZDO 

MOV 30RDATA,R3 

MOV FMCNT.R4 

COM R4 

BIT O20.U0ES 

BEQ Y0ZD4 

ASR R4 

ADD R4.R3 

BIC 01, R3 

BIT 02000, UDES 

BNE Y0ZD2 

TST CR3) 

JSR PC,ER2 

BR YOZF 

MOV 80RDATA.R3 

BTT 02000, UDES 

BNE Y0/D3 

TST (R3)» 

JSR PC.ER2 

BR YOZF 

JSR PC,ERCHK 

TST RTYFL. 

RNF tO/G 

BIT O20000,aSWR 

bne u)/> 

TST TMFlG 

BNE tOZi 

JSR PC.DCHK 

JSR PC.0S3 

BIT fl40,aSWR 

BEQ YOZH 

JMP i 0/0 

RTS PC 



;D0 YOZZLE STALL 
{SET BUS ADDRFSS 
{SEE IF READ REVERSE 
{IF NOT: BR 



5 SEE IF CORE DUMP 

j IF NOT: BR 

;R3 - FC/2 

;SET REVERSE BUS ADDRESS 

{SET READ REVERSE 

{SET READ FORWARD 
;SET CHARACTER COUNT 
;SET RETURN ADDRESS 
jGO READ 
SEE IF SHOULD CHECK ERRORS 



IF 


NOT 


BR 




SEE 


IF 


TAPE 


MARK TIME 


IF 


NOT 


BR 




SEE 


IF 


READ 


REVERSE 


IF 


NOT 


BR 




SEE 


If 


CORE 


DUMP 


IF 


NOT 


BR 




SET 


TO 


FC/2 




SET 


EXPT BUS ADDRESS 


MAKE EXPT ADDRESS EVEN 


SEE 


IF 


PE 




IP- 


SO: 


BR 




SE r 


EXPT BA 




GO 


CHECK ERRORS 



SEE IF 

IF SU: 



PI 

BR 



SET EXPT 
GO CHECK 



BA 

ERRORS 



ELSE GO CHECK ERRORS 

SEE IF RETRY 

IF SO: BR 

SEE IF SHOULD CHECK DATA 

IF NOT: BR 

SEE IF TAPE MARK 

IF SO: BR 

ELSE GO CHECK DATA 



GO CLEAR DATA 
SEE IF SHOULD 
IF NOT: BR 

tXLi 



AREA 
CONTINUE 



YO?/LE 



CZTb.DHO TM03 

CZTEDE.P11 



2958 

29 S9 

2960 

29oi 

2^>62 
2963 
29o4 
2965 

2966 

296 7 
2968 
2969 
.2970 
2971 
29??. 
2975 
29 74 
29/5 
2976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2985 
298o 
2987 
2988 
2989 
2990 
2991 
2992 
2993 
2994 
2995 
2996 
2997 
2998 
2999 
3000 
3001 
3002 
3003 
3004 
300 ( < 
3006 
300/ 
3008 
3009 
3010 
30 1 1 
3012 
3013 



TE 16/ ru 
07 MAR 



'/ DRT 

84 14:04 
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SEQ 0065 



011314 
011522 
011526 
011534 
011540 
011544 
011550 
011552 
011560 
011566 
011574 
011600 
011606 
011610 
011616 
011624 
011626 
011634 
011640 
011642 
011646 
011652 
011656 
011660 
011666 
011672 
011674 
011676 
Oil /04 
011/12 
011720 
011724 
011730 
011736 
011742 
011746 
Oil /54 
011/60 
011762 
011764 



013737 
004737 
012737 
013703 
010377 
005737 
001436 
012777 
012737 
012737 
000137 
032777 
001017 
012737 
0327/7 
001006 
013737 
004737 
000402 
004737 
013700 
005737 
100007 
042737 
013703 
160300 
005200 
012737 
012737 
012777 
013703 
01037/ 
012/37 
000137 
004737 
013/3/ 
004/3/ 
0C5300 
001345 
000207 



000606 
011/66 
024002 
000564 
166750 
000572 

17 7 7 7/ 
000032 
011600 
020506 
010000 

025221 

000004 

000564 
017466 

016/30 

000554 
000666 

100000 
000666 



024002 
011742 
17/777 
000564 

166564 
000032 
020506 
016/30 
000606 
011766 



000674 BKSPz 
000660 



166 736 
000 700 
000670 

167010 1$ 



000660 
166676 

020340 



2$ 
BO 



000666 



000660 1$ 

0006/0 

166576 



000 700 



24 



0006/4 



+ * + + **** + + + + + * + * + ****** + *** + ** + ** + ** + * + + + + + * + + + +.* + + *. 
BACKSPACE SUBROUTINE t 

THIS SUBROUTINE IS USED TO PERFORM THE 

BACKSPACE OPERATION REQUIRED BY THF READ 

ROUTINE FOR READ FORWARD AFTER WRITING. 

IF A TAPE MARK IS EXPECTED ( TM-1) THEN THE SPACF 

ROUTINE ASSUMES THAT THE TM WILL BE FIRST WHEN 

BACKSPACING. THEREFORE TWO OPERATIONS ARE REQUIRED 

TO SPACE OVER A BLOCK. FIRST SPACE OVER THE TM, THEN 

SPACE OVER THE DATA RECORDS. 

A CHECK FOR RECORD COUNT ZERO IS MADE AT THE 

END OF THE SPACE OPERATION TO ASSURE THAT PROPER 

TAPE POSITIONING WAS DONE. 

MOV TSTAL.STAL 

JSR PC, STALL 

MOV OM5G10.EMADDR 

MOV a*RDATA,R3 

MOV R3,S)6A 

TST TMEX 

BEQ BO 

mov o-i.arc 

MOV 432.MTC1 

MOV 0U.RTRN 

JMP TAPG 

BIT MOOOO.aSWR 

PNE BO 

MOV 4MSG55,EMADDR 

BIT 44, SOS 

BNE 25 

MOV a^RDATA.CADER 

JSR PC.FRPT 

BR BO 

JSR PC.ER2 

MOV RCNT.RO 

TST bOTHEC 

BPl. H 

BIG 4100000, EOTREC 

MOV L0TREC.R3 

sue R3,ro 

INC HO 

MOV 4MSG10.FMA0DR 

MOV *;M,R1RN 

mov a l.afc 

MOV aW/RDATA,R3 

MOV R 3, u)B A 

MOV #32.M!C1 

JMP TAPG 

.JSR PC.ER2 

MOV 1STAI ,STAt 

JSR PC, STALL 

Oi C RO 

BNf t $ 

RTS PC 



j DO TURN AROUND STALL 

;SET EXPECTED BA 

{SEE IF TM 
;IF NOT: BR 



{SPACE TO TM 

;SEE IF SHOULD CHECK ERROR 
;IF NOT: BR 

;SEE IF TM 

j IF SO; BR 

{PRINT ERROR 



{BRANCH IF EOT NOT DETECTED 

{CLEAR bOT INDICATOR 

;GE1 i> OF RECORDS LEFT IN BIOCK 

;FORM it OF RECORDS TO BACK SPACE 

{SET ERROR MESG ADDRESS 

{SET RETURN PC 

j SET TO BACKSPACE 1 RECORD 

jSET FXPECTFD BA 

jSt-T SPACE REVERSE 
{GO DO SPACE 

{DO STALL 

{ S 1 Al L. 

I DECREMENT <t UK RECORD TO BACKSPACE 

{EXIT 



CM I WO TM05 



n u» hi 
or mar 



tf4 14 :04 
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30 
30 
30 
30 

30 
30 
30 
30 
30 
30 
50 
30 
30 
30 
30 
30 
30 
V 
30 
30 
30 



15 

It* 

i ■ 

>V 

^ * 

/o 
30 
<1 
V 
33 
54 
55 



Oil .'fcib 

on:;: 

0U"'74 



oofiss: 

001? 'S 

000 JO 7 



000674 



STALL: 



0066 



STAl I ROUTINE i 

THIS ROUTINE IS USED TO PROVIDE SOFTWARE DELAYS 
DURING READ, WRITE, TURN AROUND, AND YO/ZLE . 
THE DELAY TIMES MAY BE SET BY THE OPERATOR AT 
INITIAL START FROM 200(8) OR MAY BE MODIFIED 
AT ANY TIME BY ENTERING CNTRL C ON THE TTY AND 
INSERTING NEW VALUES IN RESPONSE TO THE REQUEST. 
THE READ STALL AND THE WRITE STALL ARE DELAYS 
EXECUTED BETWEEN EACH RECORD OF THE DATA BLOCK. 
THE TURN AROUND STALL IS EXECUTED EACH TIME 
THE DIRECTION OF TAPE MOVEMENT IS CHANGED AND 
ALSO EACH TIME THE TAPE OPERATION CHANGES FROM 
WRITE TO READ OR READ TO WRITE. THE YO//LE 
STALL IS EXECUTED ONL'» DURING THE rO//l f ROUTINE. 



j Of I At 
IEXIT 



D(C 


MAI 


BNE 


STALL 


RTS 


PC 



c/u o\ o tmo5 n u> U'/: dri 

C^TtOi ,ri\ 7 MAR ^4 14; 04 

705' 

5053 
505-* 
3040 
504 1 
504/ 
5045 
5044 
304 5 
3046 
304 :• 
5048 
304* 0117 7b 01/701 i;;?6o 

3050 01/00/ 013 702 000560 

3051 01/006 004 73 7 0224 30 
305J 01/01/ 04/73' 000001 
3055 01/020 015737 000636 

3054 01/0/6 01/737 177777 

3055 01/034 000/07 
5056 

305 : 
3056 
505* 
5060 
5061 
506/ 
306 5 
3064 
3065 
306b 
306: 01/0 36 012 70/ 000001 

3068 01/04/ 01/701 000500 

3069 01/046 004 75 7 0//450 
30/0 01/05/ 01373 7 000636 
50 '1 01/060 000207 

'**■*,' * 

3075 



MAC Ul 30U046) 07 MAR Art i4u>l 



PAGK 



45 



5EQ 006 7 



CCNTRj 



000636 
000556 
013766 



RCNTRj 



000554 



I RANDOM CHARACTER COUNT GENERATOR: 

iTHIS ROUTINE ENTERED VIA CONSOLE SWITCH 
tSEVEN (7) IS USED TO GENERATE A RANDOM 
iCHARACTER COUNT FOR EACH DATA BLOCK. 
jALL RECORDS WITHIN A GIVEN BLOCK WILL BE 
j THE SAME, BUT EACH BLOCK WILL VARY, 

jTHE LIMITS ARE TWENTY (/O) TO THE MAX BUfEER Sl/f . 

I**************************************************** 

l SET HIGH LIMIT 

j SET LOW LIMIT 

jGO GENERATE NUMBER 

j SET CHAR COUNT 
iPRESET DATA PATTERN 
jEXIT 



jRANDOM RECORD COUNT GENERATOR: 

J 

l THIS ROUTINE ENTERED VIA CONSOLE SWITCH SIX 16) 

j IS USED TO GENERATE A RANDOM NUMBf-R 01-' RECORDS 

»FOR EACH BLOCK OF DATA, 

l THE LIMITS ARE ONE CI) TO FIVE. HUNDRED C 500 ) OCTAi 

j RECORDS PER BLOCK. 

I*********************** ******************************* 



MOV 


-20, Rl 


MOV 


BUEMAX.R2 


JSR 


PC, RANG 


BIC 


01.RAN5AV 


MOV 


RANSAV.KMCNT 


MOV 


0-1, PATS 


RTS 


PC 



MOV 


01, R/ 


, SET i OW I IMIT 


MOV 


0500, Rl 


i SE T HIGH t IMIT 


JSR 


pc, rank; 


itiO GENERATE; NUMBER 


MOV 


RANSAV.RCNl 


i'»t-T RECORD COUNT 


RTS 


PC 


(EXIT 



Ci?TEDt . 

30 *t> 
50 * * 

30 :$ 

30 "9 
30tf0 

508 I 
30S2 
304*3 
3034 
3085 
30$h 
306 '■' 
3098 
30$9 

3CW 
3091 

3o«v 

3093 
3094 

3095 
3096 

3096 
3099 
3100 
3101 
310? 
3103 
3104 
3105 
3106 
310' 
3108 
310'* 
3110 
3111 
3112 
3li< 
3114 
3115 
3116 
31 17 
3118 
3119 
3120 
3121 
3 IP? 
31.-3 
3124 

3125 

3i: j 6 

312« 
3l2*> 

3130 



TM03 
.°li 



TV U* II'/.* OR] 
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NACUl 30U046) 0/ MAR 84 14:21 PAGE 44 



SbO 006ft 



01206,7 
012066 

0120/0 
0120 74 
012100 
012104 
012112 
012116 
012120 
012126 



00573/ 

001002 
000137 
005037 
00503/ 
012/3/ 
005/3 7 
001403 
012/ V 
000004 



000644 

013404 

000 702 
005042 
0244 31 

000742 
024 35/ 



riNPj 



012130 
012130 



ROUTINE IS TO ESTABLISH 
TESTED, THIS TABLE 
EACH OF ONE CI) TO 
ENTRY CONTAINS THE 



jTEST CONDITION ENTRY ROUTINE: 

J 

l THIS ROUTINE IS USED TO ALLOW THE OPERATOR 

j TO ENTER, AT THE TTY, THE NECESSARY PARAMETERS 

I TO RUN THE PROGRAM AS HE WISHES. THE 

(ROUTINE IS ONLY ENTERED UPON INITIAL. STARTING 

l FROM LOCATION 200C6), 

j THE MAIN PURPOSE OF THIS 

l A TABLE OF DEVICES TO BE 

{CONSISTS OF AN ENTRY TOR 

(EIGHT IB) DEVICES. EACH 

I SLAVE NUMBER, DENSITY, PARITY, AND 

(FORMAT, THE INFORMATION IS ENTERED 

j IN RESPONSE TO PRINTED REQUESTS AT THE TTt. 

j SLAVES MAY BE ENTERF.C IN ANY ORDER. EACH 

j PARAMETER IS CHECKED FOR LEGALITY BEFORE BEING 

j SET INTO THE TABLE, 

I THE DRIVE NUMBER REQUEST WILL ALSO CHECK THE 

» FOR THE PRESENCE OF THE REQUESTED DRIVE. IF IT IS NOT FOUND. 

|A NON-EXIST DRIVE MESSAGE WILL BE PRINTED AND ANOTHER DRIVE 

l REQUEST MADE, WHEN THE DRIVE IS FOLND, THE RESPONSE IS STORED 

I AND CONTROL PASSED TO THE SLAVE SELECT ROUTINE. 

(THE SLAVE SELECT ROUTINE ALSO CHECKS FOR THE PRESENCE OF THE 

I SLAVE, IF IT IS NOT PRESENT, A MESSAGE IS PRINTED AND ANOTHER 

(REQUEST IS ISSUED, WHEN THE SELECTED SLAVE IS FOUND TO BE 

{PRESENT, A MESSAGE IS PRINTED IF IT IS A 7 CHANNEl DRIVE 

j TO ASSIST IN SELECTING DENSITY, PARITY, AND FORMAT, 

{UPON COMPLETION OF THE DEVICE TABLE, REQUESTS 

{ARE PRINTED FOR ENTRY OF THE NUMBER OF CHARACTERS 

{PER RECORD ANO THE NUMBER OF RECORDS PER BLOCK. The 

{NEXT REQUEST IS FOR A PATTERN NUMBER TO BE USED 

{FOR WRITING ANO CHECKING OF READ DATA. 

(FOLLOWING THE. PATTERN REQUEST IS THE TAPE MARK OPTION. 

{RESPONDING TO THE REQUEST ( TM- ) WITH A ONE (1) 

{WILL CAUSE THE PROGRAM TO WRITE A TM AT THE 

I END OF EACH DATA BLOCK ANO TO EXPECT THE 

{TM TO BE DETECTED IN EITHER READ FORWARD ANO REVERSE 

{OR DURING SPACE OPERATION. A RESPONSE OF /ERO CTM-O) 

{DISALLOWS WRITTING OF THE TM ANO CAUSES THE READ 

{AND SPACE ROUTINES TO EXPECT NO TM TO BE PRESENT. 

{THE LAST REQUESTS ARE FOR ENTRl OF THE DESIRED 

(WRITE. READ, AND TURN AROUND STALLS. 



45; 



TST II W 

HNF 11 

.IMP TINP4 

Cl R IJNP 

Ct R REOTC 

M()v 0MSG31.4U 

TM A5EQF 

Mt Q 4$ 

MOV 0M5G3U.41* 
TtPt 



{SEE IF SHOULD INPUT FROM TTl 

{IF SO: BR 

(GET SWITCHES 

{CLEAR TABl F POINTER 

iCl FAR EOT UNIT COUNTER 

joET TITU MSG 

(Si E IF AUTO SEQ 

(IF NOT: BR 

t st i Aum stu hdr 

I TYPt Miili 



c;tedeo tmo5 
cztede .pii 



07 -MAR 84 14 



04 
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SbQ 0069 



5151 

3132 

3155 
3134 

3155 
3156 
3157 
3136 
3139 
3140 
3141 
3142 
314 3 
3144 
314S 
3146 
314^ 
314^ 
3149 
3150 
3151 
3152 
3153 
3154 
315S 
3156 
315" 
31T>8 
315* 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
316 7 
3168 
316^ 
3170 
3171 
317.? 
3173 

31 74 

3175 
5176 
3 1 7 7 
3178 
3179 
3180 
3181 
3 1 82 
318 S 
3184 
31*5 
3186 



012130 
012132 
012136 
01*7142 
012146 
012152 
012154 
012160 
012164 
012166 
012172 
012176 
012202 
012206 

01221? 

012216 
012222 
012224 
012230 
012254 
012240 
012244 
012250 
012254 

012260 
012264 
012270 
012274 
012500 
012502 
012306 
012310 
012512 
012316 
012320 
012322 

012326 

012334 
012340 
012344 
012550 
012554 
012560 
012564 
012572 
012376 
012404 
012406 
012412 

012.U4 
012^20 
012424 
012430 



000000 
105077 
000004 
105037 
005 737 
001065 
000004 
013 703 
104400 
012 705 
012701 
012702 

012 703 
004 73 7 

000004 

013703 
104400 
012705 
012701 
012702 
012703 

004 73 7 

013 700 
012720 
012710 
013700 
C12701 
012702 
010022 
062 *00 
005501 
001373 
005737 
001403 

005 726 
000137 

012777 
000004 

012705 
012701 
012702 
012705 
004 73 7 
015777 
0057 77 
032777 
001405 
000004 
000745 

012705 

000004 
005037 

012701 



177 7 72 
024513 

024513 
013560 

025445 
000544 

000544 
00000 / 
176400 
1 .\7300 
022612 

0254 70 
000546 

000546 
000004 
000224 
000150 
022612 
000546 
021? 74 
000540 
000544 
000016 
000510 

000002 



000 M 2 



021512 

000040 
025156 
000550 
000002 
00000 1 
000000 
022612 
000550 
166112 
010000 

025402 



000654 
024600 
000654 
000002 



41$ 



5*: 



166164 65 



166126 
166114 



.WORD 
CLRB S41* 

nPE,MSG31A 
CI RB MSG31A 

TST SCVFX 

RNF 6$ 

TlPE.MSG'M 



T1NP0; 



MOV 


REGS.R3 


npocT 


MOV 


0REGS.R5 


MOV 


07,91 


MOV 


a 1764 00, R2 


MOV 


01 72300, R3 


JSR 


PC.TTR 


TiPE 


,MSG75 


MOV 


VECT.R3 


TYPOCT 


MOV 


0VECT.R5 


MOV 


04, Rl 


MOV 


0224, R2 


MOV 


0150. R3 


JSR 


PC.TTR 


MOV 


VECT.RO 


MOV 


OMTINT.(RO) 


MOV 


0340, CRO) 


MOV 


RLGS.RO 


MOV 


016, Rl 


MOV 


0C1.R2 


MOV 


R0.CR2)* 


ADD 


^2 . RO 


DEC 


Rl 


BNF 


51 


TST 


ASEQF 


BF.Q 


6$ 


TST 


C SP ) > 


JMP 


ASEQ 


MOV 


040, yes 


It PL 


.MSG52A 


MOV 


0DVN.R5 


MOV 


02. Rl 


MOV 


7.R2 


MOV 


00, R 3 


JSR 


PC.TTR 


MOV 


DvN.hJCS 


1ST 


aci 


BIT 


noooo.acs 


6FQ 


TINPO 


T iPF 


.M5G71 


BR 


6* 


MOV 


0TEMP2.R5 


\ »Pl 


•MSG32 


CI R 


n MP2 


MOV 


«tRl 



ADDRESS OF APPROPRIATE TITLE MSG 

DO NOT TYPE TITLE ON RESTART 

TYPE INSTRUCTIONS 

DO NOT TYPE STARTUP INSTRUCTIONS ON RESTART 

SEE IF SHORT CONVERSATION 

IF SO: BR 

REQUEST REGISTER START 

PRINT CURRENT REG START 
SAVE ADDRESS LOCATION 
SET SIZE OF ENTRY 
SET UPPER LIMIT 
SET LOWER LIMIT 
GO GET RESPONSE 

REQUEST INTERRUPT VFCTOR ADDRESS 

PRINT CURRENT VECTOR 

SET SAVE LOCAT ~N 

SET SI/E OF ENTRY 

SET UPPER LIMIT 
;SET LOWER LIMIT 
jGO GET RESPONSE 
sGET VECTOR 



ADDRES C 



OAO VECTOR WITH HANDLER ADDRESS 

LOAD PRIORITY LEVEL 

GET STARTING REGISTER ADDRESS 

SET NUMBER OF REGISTERS 

GET FIRST ADDRESS LOCATION 

BUILO TABLE OF ADDRESSES 

BUMP ADDRESS 

SEE IF DONE 

IF NOT- BR 

SEE IF AUTO 
I If NOT; BR 
jRESET STACK 
{GO TO AUTO 



SEQ 

POINTER 
SEQUENCE 



INITIAL m. 

REQUEST DRIVE ( TM01O 

GET ADDRESS 

SET SIZE. OF RESPONSF 

SET UPPER LIMIT 

SET LOWER LIMIT 

GO GET DRIVE NUMBER 

ACCESS DRIVE 

SEE IF NED 

IF NOT : BR 

TIPF • N0N-EX1STANT DRIVE' 

RETRY OVN 

SF 1 ADDRESS FOR RF SPONSF 

Rt QUE 5 T SI. AVE *. T E 1 6 , Tn ? " 1 ff 

CI. I AR BUF> tR 

SET NUMBER OF CHARACTERS TO INPUT 



C7H0t ; 


imo3 n iti- iu;; 


DR1 MACY11 


CZTLDE. 


PI l 07 -MAR 84 


14:04 


3ia; 


012434 


012702 


000007 


3188 


012440 


012703 


000000 


3189 


012444 


004737 


022612 


3190 


012450 


005737 


000652 


3191 


012454 


001010 




3192 


012456 


013700 


000702 


3193 


012462 


001754 




3194 


012464 


012760 


177777 000752 


3195 


012472 


000137 


013012 


3196 


012476 


013700 


000702 


3197 


012502 


011560 


000752 


3198 


012506 


012777 


000040 166004 


3199 


012514 


013777 


000550 165776 


3200 


012522 


016077 


000752 166012 


3201 


012530 


032777 


002000 166000 


3202 


012536 


001003 




3203 


012540 


000004 


025234 


3204 


012544 


000723 




3205 


012546 


017703 


165764 


3206 


012552 


042703 


000007 


320? 


012556 


022703 


142050 


3208 


012562 


001407 




3209 


012564 


000004 


025127 


3210 


012570 


017703 


165742 


3211 


012574 


042703 


000007 


3212 


012600 


104400 




3213 
3214 
3215 


012602 


004737 


023562 


012606 


000004 


024613 


3216 


012612 


005037 


000654 


3217 


012616 


012701 


000002 


3218 


012622 


012702 


000004 


3219 


012626 


012703 


000003 


3220 


012632 


004737 


022612 


3221 


012636 


012703 


000010 


3222 


012642 


004737 


013562 


3223 








3224 


012646 


000315 




3225 


012650 


022715 


000004 


3226 


012654 


001415 




3227 


012656 


000004 


024626 


3228 


012662 


005037 


000654 


3229 


012666 


012701 


000002 


3230 


012672 


012702 


000001 


3231 


012676 


012703 


000000 


3232 


012702 


004737 


022612 


3233 


012706 


000402 




3234 


012710 


012715 


000000 


3235 


012714 


012/03 


000003 


3236 


012720 


004737 


013562 


3237 








3238 


012724 


000004 


025200 


3239 


012730 


00503 7 


000654 


3240 


012734 


012701 


000003 


324 1 


012740 


012702 


00001 / 


3242 


012744 


012/03 


000000 
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SEQ 0070 



MOV 07, R2 

MOV 00.R3 

JSR PC.TTR 

1ST TEMPI 

BNE TINPOB 

MOV UNP.RO 

BEQ TINPO 

MOV 0-1,UN1CRO) 

JMP TINP2C 

TINPOB: MOV UNP.RO 

MOV (R5),UN1(R0) 

MOV 040.3CS 

MOV 0VN.3CS 

mov uNi(RO).arc 

BIT 42000, 30T 

BNE TINPOD 
TYPE.MSG57 

BR TINPO 

TINPOD: MOV 30T.R3 

BIC 47, R3 

CMP 0142050, R3 

BEQ TINPOE 
TYPE.MSG50 

MOV 3DT.R3 

BIC 07, R3 
TYPOCT 

TINPOE: JSR PC.SNPT 

TINP1: TYPE»MSG33 



CLR 
MOV 
MOV 
MOV 
JSR 
MOV 
JSR 



TEMP2 
02, Rl 
04, R2 
03, R3 
PC. sTR 
010, R3 
PC.TPOS 



TINP2: 



SWAB (R5) 
CMP 04, (R5) 
BEQ 1$ 

TYPL.MSG34 



2$ 



TINP2A: 



CLR 


TEMP 2 


MOV 


02. Ri 


MOV 


01, H2 


MOV 


00, R3 


JSR 


PC. MR 


BR 


.■* 


MOV 


00.CR5') 


MOV 


3 , R * 


JSR 


PC.TPOS 


r" i pe 


.MSG53 


CLP 


TFMP2 


MOV 


05. Rl 


MOV 


01 /,R2 


MOV 


00, R 3 



j SET MAXIMUM 
{SET MINIMUM 
jGO GET UNIT 
{SEE IF HAVE 
I IF SO: BR 



LIMIT 

LIMIT 

NUMBER 

NEW PARAMETER 



{BRANCH IF FIRST ENTRY 
j SET END UNIT TABLE 
jGO GET RECORD COUNT 

I SET NEW SLAVE 

{DO A MASS BUS CLEAR 

jLOAD DRIVE 

{LOAD SLAVE NUMBER 

j SEE IF SLAVE PRESENT 

j IF SO: BR 

{TYPE NON-EXISTANT SLAVE* 

{REDO 

{GET CONTENTS UF DT REG 

{CLEAR DRIVE TYPE 

{SEE IF 9TRK TM03 

{IF SO: BR 

{TYPE 'ILLEGAL DRIVE TYPE' 

{CLEAR SLAVE 

{PRINT DRIVE TrPE REGISTER 

{PRINT SERIAL NUMBER 

{REQUEST DENSITY 

{CLEAR BUFFER 

{SET NUMBER OF CHARACTERS TO INPUT 

{SET MAXIMUM LIMIT 

{SET MINIMUM LIMIT 

;G0 GET DENSITY 

{SET POSITION FACTOR 

;G0 LOAD DENSITY INTO PROPER POSITION 

{IF DENS IT> 

{IS 1600BPI 

;THEN SKIP PARITY REQUEST 

{REQUEST PARITY 

: CL R BFR 

{SET NUMBER OF CHAR, TO INPUT 

{SET HIGH LIMIT 

{SET LOW LIMIT 

{GO INPUT PARIIY 

{SKIP 1600 BPI PttROn SETTING 

{SET ODD PARITi FOR 1600 BPI 

{SET POSITION FACTOR 

{GO POSITION PARITY 

{REQUEST FORMAT 



CTEDEO TM03 
aTF.Df.Pll 



TEltw TU/7 DRT 
07-MAR-84 14;04 



NACU1 30C1046) 0/ -MAR -84 
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3243 

3244 

3246 
324 7 
3248 
3249 
3250 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
326 7 
3268 
3269 
3270 
3271 
3272 
3273 
3274 
3275 
32 76 
3277 
3278 
32 79 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
328/ 
3288 
3289 
3290 
3291 
3292 
3293 
3294 

32 9h. 

329.' 



012750 
012754 
012760 
012764 
0127/0 
012776 
013000 
013006 



013012 
013016 

013024 

013030 
013034 
013036 
013042 
013046 
013052 
013056 
013062 

013070 

013074 
013100 
013104 
013106 
013112 
013116 
013122 
013124 
013130 
013134 
013140 

013146 
013152 
013156 
013160 
013164 
013170 
013174 
013200 
013204 

013210 

013214 
013220 
013222 
013226 
CI 3232 
0132 56 
015242 



004/37 
012703 
004737 
005237 
022737 
001405 
062737 
000137 



005037 
113737 

000004 
013703 
104400 
012705 
012701 
012702 
012703 
004737 
013737 

000004 

005437 
013703 
104400 
012705 
012701 
013702 
005402 
012703 
004737 
00543 7 
013737 

000004 
013703 
104400 
005037 
012705 
012701 
012702 
012703 
004 737 

000004 
013703 
104400 
012705 
012/01 
012/02 
012/03 
004 73/ 



000004 
013562 
005042 
000016 

000002 



000702 
005042 

024640 
000554 

000554 
000007 
177777 
000001 
022612 
000554 

024660 
000556 
000556 

000556 
000007 
000560 

000004 
022612 
000556 
000556 

024676 
000566 

014130 
000566 
000003 
000015 
000000 
022612 

025366 

000572 

0005/2 
000002 
000001 
000000 
022612 



SLQ 0071 



000702 
000702 

005043 



JSR 
MOV 
JSR 
TINP2B? INC 
CMP 
BEQ 
ADD 
JMP 



TINP2C: 



CLR 
MOVB 



PC.TTR 
04, R3 

PC . TPOS 
REOTC 

016, UNP 
TINP2C 
02, UNP 
TINPO 



UNP 

REOTC, REOTC+l 



TINP3{ TYPE.MSG35 



000640 



000642 



MOV 

typoct 

MOV 
MOV 
MOV 
MOV 
JSR 
MOV 



RCNT.R3 

0RCNT.R5 
07. Rl 

0177777, R2 
01, R3 
PC.TTR 
RCNT,RCSAV 



TYPE.MSG36 



NEG 
MOV 
TYPOCT 

MOV 
MOV 
MOV 
NEG 
MOV 
JSR 
NEG 
MOV 



FMCNT 
FMCNT, R3 

0FMCNT.R5 
07, Rl 
BUFMAX,R2 
R2 

04, R3 
PC.TTR 
FMCNT 
FMCNT. FCSAV 



TiPE,MSG37 

MOV PATRN.R3 

TYPOCT 



CLR 
MOV 
MOV 
MOV 
MOV 
JSR 



M' 



I ^ Pt 

MOV 

TtPOCT 

MOV 

MOV 

MOV 

MOV 

JSR 



DOM 

0PATRN.R5 
03, Rl 
615, R2 
00, R3 
PC.TTR 

.G69 

TMEX.R3 

OTMf v,R5 
02, Rl 
01, R2 
00. R* 
PC.TTR 



j GO GET FORMAT 



{BUMP EOT UNIT COUNTER 

j SEE IF DONE UNITS 

{IF SO: BR 

{POINT TO NEXT UNIT 

{ELSE LOOK FOR NEXT UNIT 



{CLEAR UNIT POINTER 
{SET OF UNITS TO TEST 

{REQUEST RECORDS PER BLOCK 

{PRINT RECORD COUNT 

;SET RECORD COUNT ADDRESS 

{SET NUMBER OF CHARACTERS TO INPUT 

{SET MAXIMUM LIMIT 

{SET MINIMUM LIMIT 

{GO GET RECORD COUNT 

{SAVE RECORD COUNT 

{REQUEST CHARACTERS PER RECORD 



{PRINT CHAR COUNT 

tSET CHARACTER COUNT ADDRESS 

{SET NUMBER OF CHARACTERS TO INPUT 

{SET MAXIMUM LIMIT 

{MAKE IT POSITIVE 

{SET MINIMUM LIMIT 

iGO GET CHARACTER COUNT 

{SET TO TWO'S COMPLIMENT 

(bM'v't FRAME COUNT 

{REQUEST PATTERN 



;PR 

i CI. 
iSE 
iSE 
iSF. 
I St 
{GO 



INT PATTERN 

EAR EXTERNAL DATA FLAG 
T PATTERN NUMBER ADDRESS 
T NUMBER OF CHARACTERS TO INPUT 
T MAXIMUM LIMIT 
T MINIMUM LIMIT 
GET PATTERN NUMBER 



013246 000004 0240 70 



riPL,MSG21 



{REQUEST TAPE MARK 

{PRINT CURRENT TM Fl.AL, SETTING 

{GET TM FLAG ADORES*. 

{SET SI/E Of RESPONSE 

{St T UPPLR LIMIT 

jSt T I OWIR I. IMIT 

{TM I -YES 

{REQUEST INTERCHANGE READ 



CZTEDEO 


TM03 TE lfc.-TU7 7 


DRT 


CZTEDE, 


Pll 07-MAR-84 


14:04 


32^9 


013252 


013703 


000576 


3300 


013256 


104400 




3301 


013260 


012705 


0005 76 


3302 


013264 


012701 


000002 


3303 


013270 


012702 


000001 


3304 


013274 


012703 


000000 


3305 


013300 


004737 


022612 


3306 








3307 


013304 


000004 


024 713 


3308 


013310 


013703 


000600 


3309 


013314 


104400 




3310 


013316 


012705 


000600 


3311 


013322 


012701 


000002 


3312 


013326 


012702 


000001 


3313 


013332 


012703 


000000 


3314 


0X3336 


004737 


022612 


3315 








3316 


013342 


000004 


024731 


3317 


013346 


013703 


000574 


3318 


013352 


104400 




3319 


013354 


012705 


000574 


3320 


013360 


012701 


000002 


3321 


013364 


012702 


000001 


3322 


013370 


012703 


000000 


3323 


013374 


004737 


022612 


3324 


013400 


004737 


022462 


3325 


013404 


005737 


013560 


3326 


013410 


001060 




3327 


013412 


005737 


000644 


3328 


013416 


001455 




3329 


013420 


000004 


024767 


3330 


013424 


013703 


000602 


3331 


013430 


104400 




3332 


013432 


012705 


000602 


3333 


013436 


012701 


000007 


3334 


013442 


012702 


177777 


3335 


013446 


012703 


000001 


3336 


013452 


004737 


022612 


3337 








3338 


013456 


000004 


025016 


3339 


013462 


013703 


000604 


3340 


013466 


104400 




3341 


013470 


012705 


000604 


3342 


0134 74 


012701 


00000 7 


3343 


013500 


012702 


177777 


3344 


013504 


012703 


000001 


3345 


013510 


004 737 


022612 


3346 








3347 


013514 


000004 


02502 7 


3348 


013520 


013703 


000606 


3349 


013524 


104400 




3350 


013526 


012^05 


000606 


3351 


013532 


012701 


000007 


3352 


013536 


012702 


17/777 


335'. 


013542 


012703 


000001 


3354 


01354b 


004 737 


022612 
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PAGE 44-4 



SfcQ 00 72 



TINP3A: 



TINP4 
1$: 



MOV 


INTRF.R3 


TYPOCT 




MOV 


4INTRF.RS 


MOV 


42, Rl 


MOV 


41, R2 


MOV 


40, R3 


JSR 


PC.TTR 


TYPE.MSG38 


MOV 


SPFLG.R3 


TYPOCT 




MOV 


4$PFLG,R5 


MOV 


42, Rl 


MOV 


41, R2 


MOV 


♦J0.R3 


JSR 


PC.TTR 


TYPE.MSG39 


MOV 


CRCC.R3 


TYPOCT 




MOV 


4CRCC.R5 


MOV 


02, Rl 


MOV 


•1, R2 


MOV 


40, R3 


JSR 


PC.TTR 


JSR 


PC.GTSWR 


TST 


SCVFL 


BNE 


TINPX 


TST 


TINF 


BEQ 


TINPX 


TYPE.MSG40 


MOV 


RSTAL.R3 


TYPOCT 




MOV 


4RSTAL.R5 


MOV 


47, Rl 


MOV 


4 1, R2 


MOV 


41, R3 


JSR 


PC.TTR 


TYPE, MS 


641 


MOV 


WSTAL.R3 


TYPOCT 




MOV 


4WSTAL.R5 


MOV 


47, Rl 


MOV 


4 1,R2 


MOV 


41, R3 


JSR 


PC.TTR 


TYPE, Mi 


G42 


MOV 


TSTAL.R3 


TYPOCT 




MOV 


4TSTAI ,R5 


MOV 


fli'.Rl 


MOV 


4 1,«2 


MOV 


41. R3 


JSR 


PC.TTR 



{PRINT CURRENT SETTING 
{GET FLAG ADDRESS 
{SET SIZE OF RESPONSE 
{SET UPPER LIMIT 
{SET 10WER LIMIT 
jGO GET RESPONSE 

{REQUEST SINGLE PASS 

{PRINT CURRENT SETT TNG 
tSET ADDRESS OF FLAG 
{SET SIZE OF RESPONSE 
;SET UPPER LIMIT 
, r .'"T LOWER LIMIT 
;i.i) GET RESPONSE 

{REQUEST CRC CORRECTION 



{GET SWITCHES 
{BRANCH IF SHCi*U 



CONVERSATION 



{BRANCH IF NO TTY INPUT 
{REQUEST READ STALL 

{PRINT READ STALL 

{SET READ STALL ADDRESS 

;SET NUMBER OF CHARACTERS TO INPUT 

I SET MAXIMUM LIMIT 

{SET MINIMUM LIMIT 

jGO GET READ STALL 

{REQUEST WRITE STALL 

{PRINT READ STALL 

{SET WRITE STALL ADDRESS 

iSET NUMBER OF CHARACTERS TO INPUT 

{SET MAXIMUM LIMIT 

i SET MINIMUM LIMIT 

{GO GET WRITE STALL 

{REQUEST TURN AROUND S TALI 

{PRINT TA STAl l 

iSET TURN AROUND STALL ADDRf Si"> 

{SET NUMBER OF CHARACTERS TO INPUT 

tSE T MAXIMUM I IMIT 

;Se T MINIMUM I IMIT 

jGO GET TURN AROUND STALL 



c/tedeo 


I MO 3 Tf 16- TU7 7 


DRT 


CZTEDE. 


Pll 07-MAR-84 


14:04 


3355 


013552 


00503 I 


013560 


3356 


013556 


000207 




335* 


0135t>0 


000000 




3358 








335^ 








3360 








33t»l 


013562 


006337 


000654 


3362 


013566 


005303 




3363 


0135 70 


001374 




3564 


013572 


013700 


000 702 


3365 


013576 


053 760 


000654 


3366 


013604 


000207 




33b? 
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TINPX 
SCVfl. 

TPOSi 



000752 



SEQ 0073 



Cl.R 
PIS 




SCVFL 
PC 



{clear short conversation flag 

jExit 

j short conversation flag 



jUNIT DESCRIPTION POSITIONING SUBROUTINE********** 



ASL. TEMP2 

DEC R3 

BNE TPOS 

MOV UNP.RO 

BIS TEMPS, UNKRO) 

RTS PC 



iPOSITION CHARACTER 

j SEE IF DONE 

i IF NOT: BR 

;l OAD UNIT POINTER 

jl.OAO CHARACTER INTO UNKRO) 

jEXIT 



emoi.o tmo5 

CZTEDE.P11 



3369 
3370 

55 a 

33 .V 
337? 
33 ^ 
5375 
35 76 
33" 

33 '8 
33.'9 
3580 
3381 
3382 
338? 
3334 
3 38 c > 
5386 
338'.* 
3388 
3389 

3390 
3391 
339:' 
3393 
3394 
3595 
3396 
339 •' 
3398 
339Q 

3400 
3401 

3402 

340? 
3404 
3405 
3406 
3407 
?4 08 
3409 

3410 
3411 
3412 

34 1? 
3414 
3415 
3416 
34 1 7 
34 18 
34 19 
34 20 

34 2 L 

34;/;' 

3424 



TE16 TU/7 DR1 

07-MAR-84 14;04 



MACU1 30(1046) 07-MAR-34 



14:21 PAGE 45 



SEQ 0074 



013606 
01361? 
013614 
013620 
01362c? 
013626 
013630 

013634 

013636 
013644 
013646 
013652 
013656 
013662 
013664 
013670 
013674 
013676 
013702 
013706 
013/12 
013716 
013720 
013724 
013730 
013/34 
013736 
013742 
013/44 
013/46 
013750 
013/5* 
013/64 
013/66 
0137 70 



005737 
001044 
005737 
001406 
00573? 
100003 
0O4 73V 

000433 
023737 
001014 
013703 
042703 
023703 
001404 
010337 
004 737 
000207 
013/03 
013701 
010137 
062 701 
006301 
004 771 
004 737 
013/02 
00620? 
013701 
005021 
005202 
001375 
015/37 
04273/ 
00020/ 
1 / / / / / 
000000 



014520 DSUP 

000742 DSO: 

000566 

014456 

■ 

000566 013766 DSOC 



000552 
177767 
013770 

013770 
014522 

000562 
000566 
013766 
000001 

002771 
014522 

000556 

000564 



00055? 
177/6/ 



DSOB 
DSOA 



D:>?A 

DS3j 



DS4j 



013/70 
013770 



{DATA SETUP ROUTINE: 

ITHIS ROUTINE IS USED TO GENERATE INTO THE ENTIRE 

{WRITE BUFFER (4000 OCTAL CHARACTERS) THE DATA PATTERN 

j SELECTED BY THE OPERATOR. THERE ARE 15 (8) FIXED 

{DATA PATTERNS AVAILABLE AND ONE SELECTION (DATA PATTERN 0) 

{WHICH WILL READ ANY PATTERN PRESENTED AT THE 

{HIGH SPEED PAPER TAPE READER. THIS TAPE MUST BE PREPARED 

{BY USING THE PROGRAM CALLED DTC. (MAINDEC -li-DZTUF - A-D ) 

{RANDOM DATA MAY ALSO BE USED VIA CONSOLE 

{SWITCH EIGHT (8). 

{THIS ROUTINE IS ALSO USED TO CLEAR OUT THE 

{READ BUFFER (4000 OCTAL CHARACTERS) BEFORE EACH 

{RECORD IS READ. 



TST 
BNE 

tst 

BEQ 

TST 
BPL 

vJSR 

RTS 

BR 

CMP 

BNE 

MOV 

BIC 

CMP 

BEQ 

MOV 

JSR 

RTS 

MOV 

MOV 

MOV 

ADD 

ASL 

JSR 

JSR 

MOV 

ASP 

MOV 

CI R 

INC 

BNf 

M()v 

BIC 

Rts 



PAT*, 
PARS 



RDFL 

DS2A 

ASEQF 

DSOC 

PATRN 

DSOC 

PC.DATR 

PC 

DS2A 

PATRN, PATS 

DSOA 

U0ES.R3 

#177767, R3 

PARS.R5 

DSOB 

R3.PARS 

PC.CRCl.RC 

PC 

30WDATA.R3 

PATRN, Rl 

Rl.PATS 

Ol.Rl 

Rl 

PC.aOATHl CR1) 

PC.CRCt RC 

FMCNT.R? 

R? 

aCRDATA.Rl 

UU)» 

R? 

DS4 

UDtS.PARS 

#1 7 7767, PARS 

PC 



sSE 
f IE 

{SE 
I IF 
{SE 

1 IE 
J EL 

2 * * 
1 * * 
JSE 
l IE 
|GE 
I MA 
jSE 
}IE 
;SA 
{GO 



E IF 

NOT 
E IF 

NOT 
E IF 

NOT 



DID RANDOM DATA 

BR 
AUTO SEQ 

BR 
AUTO RANDOM 

BR 

;e go generate 



RANDOM DATA 



DELETED 

B GENERATE EXPECTED LRC/CRC 6 CLEAR READ BFR 

E IF NEW PATTERN 

SO: BR 
T UNIT DESCRIPTION 
SK EVEN PARm 
E IF SAME AS LAST TIME 

SO: BR 
Vfc PARITY 

GENERATE EXPT CRC/l RC 



1 



t R3 - ADDRS OE WRITf BUFFER 
{Rl - PATTERN SELECTOR 

1 BUMP POINTER 

{MAKE PATTERN SELECTOR EVEN 

;G0 GENERATE PATTERN 

{GO GENERATE EXPT CRC/L.RC 

jR2-RUf TER SUE 

3 R? -FRAME CMT/J 

[Rl-READ DATA START 

{CLEAR BUFFER 

{SEE U DONE At I 

l IF NOT: BR 

GET UNIT DESCRIPTION 

MASK PAR IT > 

i \IT 

PATTERN NUMBER SAVE 
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SEQ 00 75 



34 2o 

542 ; 

542A 

34 30 

3431 

34 3c 

34 33 

34 34 

343 r > 

34 36 

345 7 

3438 

34 3^> 

3440 

3441 

3442 

3443 

3444 

3445 

3446 

344 7 

3448 

3449 

3450 

3451 

345? 

3453 

3454 

3455 

3456 

34 5? 

34 58 

3459 

34*50 

3461 



01377? 

013776 
014000 
014002 
014010 
014014 
014020 
014C26 
014032 
014034 
014036 
014042 
014046 
014050 
014052 
014054 
014062 
014066 
014070 
0140 72 
0140 74 
014076 
014100 
014104 
014110 
014U2 
014116 
014120 
014122 
014124 
014126 
014130 



005737 
001401 
000207 
012737 
005077 
005037 
052777 
105777 
100375 
005001 
117701 
005737 
001011 
105701 
001762 
012737 
010137 
010102 
000753 
110123 
005302 
001350 
013701 
013702 
112123 
023703 
003001 
00020 7 
005302 
001371 
000764 
000000 



014130 



000001 
164614 
000652 
000001 
164576 



164570 
000652 



000001 
000654 



000562 
000654 

000564 



014130 



164602 



000652 



I EXTERNAL DATA INPUT FROM H/S READER (256 CHARACTER MAyiMiJM) 

{BRANCH IK SHOULD DO EXTERNAL. INPUT 

{ ♦♦H RETURN 

;SET EXTERNAL FLAG 

,-CLEAR READER STATUS 

j CLEAR FOR USE AS CHARACTER FLAG 

jSTART READER 

jSEE IF DONE 

;IF NOT : BR 

j CLEAR SAVE LOCATION 

SAVE CHARACTER 

SEE IF HAVE FOUND START CHARACTER 

IF SO : BR 
jSEE IF CHARACTER IS 
j IF SO : BR 

ELSE SET CHARACTER FOUND FLAG 

SAVE DATA SIZE 

SAVE DATA SIZE 

GO GET FIRST DATA CHAR 

LOAD BUFFER 

SEE IF READ ALL 

IF NOT : BR 

Rl - START OF WRITE BUFFER 

R2 * SI2E OF DATA FIELD 

REPEAT LOAD OF DATA FIELD 

SEE IF DONE 

IF NOT; BR 
l »*H RETURN 
{SEE IF AT END OF DATA FIH.D 

IF NOT : OR 

El SE RE SI ART Kl i 

EXTERNAL DATA FLAG" I U' AlREAQi DONE 



DATO: 


TST 


DOFL 




BEQ 


15 




RTS 


PC 


1$: 


MJV 


01. DOFL 




CLR 


SPRS 




CLR 


TEMPI 


DATOA: 


BIS 


#1,3PRS 


DATOB: 


TSTB 


apRS 




BPL 


DATOB 




CLR 


Rl 




MOVB 


SPRB.R1 




TST 


TEMPI 




BNE 


DATOC 




TSTB 


Rl 




BEQ 


DATOA 




MOV 


#1, TEMPI 




MOV 


R1.TEMP2 




MOV 


R1.R2 




BR 


DATOA 


DATOC: 


MOVB 


R1.CR3)* 




DEC 


R2 




BNE 


DATOA 


DATOD: 


MOV 


aOWDATA.Rl 




MOV 


TEMP2.R2 


DATOE: 


MOVB 


(R1)*,(R3) 




CMP 


a,?RDATA,R3 




BGT 


DATOF 




RTS 


PC 


DATOF: 


DEC 


R2 




BNE 


DATOF 




BR 


DATOD 


DOFL; 








C/H Dt-.O 


TH03 U 16 IJ/,' 


DRI 


CZTEDE. 


Pli 0/ MAR 84 


L4:04 


3463 








5464 








3465 


01413c? 


012701 


1 7 : 7 7 7 


34b6 


014136 


012702 


002002 


3467 


01414? 


010123 




3468 


014144 


00530? 




3469 


014146 


001375 




34 70 


014150 


000207 




34 71 








34 7? 








34 73 








34 74 


01415? 


005001 




34 75 


014154 


000770 




34 76 








34 7 " 








34 7 a 








34 79 


014156 


012701 


000001 


3480 


014162 


000241 




3461 


014164 


012702 


004004 


3482 


014170 


110123 




3483 


014172 


106101 




3484 


014174 


005302 




3485 


014176 


001374 




3486 


014200 


000207 




3487 








3488 








3489 








3490 


014202 


012701 


000376 


3491 


014206 


000261 




349? 


014210 


000765 




3495 








3494 








3495 








3496 








349 7 


014?1? 


012701 


052525 


3498 


014216 


00074 7 




3499 








3500 








3501 








350;? 


014220 


012701 


125252 


3503 


014224 


000744 




3504 








3505 








3506 








350 7 


014226 


012/01 


125252 


3508 


014232 


012702 


052525 


3509 


014236 


012704 


001002 


3510 


014242 


010123 




3511 


014244 


010223 




351? 


014246 


005304 




3515 


014250 


00 13, '4 




3514 


014252 


000207 




3515 









I 6 
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SEG 0076 



DAT5: 
DAT6: 

DAT 7; 
1$: 



j ALL ONES********** 



DAT It 


MOV 


l.Rl 


DATlAj 


MOV 


42002. R2 


1$: 


MOV 


R1.CR3)* 




DEC 


R2 




BNE 


1$ 




RTS 


PC 




{ALL 


ZEROS********** 


DAT2; 


CI R 


Rl 




BR 


DAT1A 




{WALKING ONE********** 


DAT3: 


MOV 
CLC 


ffl.Rl 


DAT3A: 


MOV 


44004, R2 


1$: 


MOVB 


R1.CR3)* 




ROLB 


Rl 




DEC 


R? 




BNE 


1* 




RTS 


PC 




{WALKING ZERO********** 


DAT4 : 


MOV 
SEC 


0376, Rl 




BR 


0AT3A 



• Rl "DATA 

I R? -WORD COUNT *2 
jLOAU BUFFER 
{SEE IF DONE 
{IF NOT: BR 



iRl'OATA 
{LOAD BUFFER 



jRl=DATA 

R2-CHARACTER COUNT »4 

LOAD BUtKtft 

SET NEXT CHARACTER 

SF.E IF DONE 

IF NOT: BR 



iRl'STAUr Of- DATA 
{LOAD BUFFER 



;AL TERNATING ONE/ZERO******* *** 



MOV 
BR 



452525 .Rl 

DAT1A 



{Rl 'DATA 

{I OAO BUFFER 



ALTERNATING ZERO/ONE** *♦*♦*♦♦ ♦ 



MOV ,7125252. Rl 
BR DAT1A 



jRl-DAIA 
{LOAD BUFFER 



lONE/ZERO IN ALTERNATING WORDS* ♦+* ****** 



MOV .'>1?5252,R1 

MOV #52525, R? 

MOV 4 1002.R4 

MOV R1.CR3). 

MOV H?,(R3U 

PLC R4 

DNl. 1 $ 

RTS PC 



SI T WORD 1 
SET WORD ? 
SET NUMBER OF ENTRIES 

I OAD WORD t 
LOAD WORD ? 
SEE H DONE 
IF NOT: BR 



c/][ oto 


I MO 3 It lt» IU.\' 


drt 


CZTEDE. 


Pll 07 -MAR -84 


14:04 


351/ 








35 It- 








3519 


014254 


012702 


002002 


3520 


014260 


012701 


000001 


3521 


014264 


000241 




3522 


014266 


012713 


177400 


3523 


014272 


050123 




35 24 


014274 


106101 




3525 


014276 


005302 




3526 


014300 


001372 




3527 


014302 


000207 




3528 








352<> 








3530 








3531 


014304 


005001 




3532 


014306 


012702 


004004 


3533 


014312 


110123 




3534 


014314 


105201 




3535 


014316 


005302 




3536 


014320 


001374 




3537 


014322 


000207 




3538 








3539 








3540 








3541 


014324 


012701 


0003 7 7 


3542 


014330 


012702 


004004 


354 3 


014334 


110123 




3544 


014336 


105301 




3545 


014340 


005302 




3546 


014342 


001574 




354 7 


014344 


000207 




354 8 








3549 








3550 








3551 


014346 


012701 


0003// 


355? 


014352 


000137 


014136 


3553 








3554 








3555 








3556 


014356 


012702 


002002 


3557 


01436? 


012701 


000376 


3558 


014366 


00026 1 




3559 


014370 


010113 




3560 


014372 


042/23 


177400 


3561 


014376 


106101 




3562 


014400 


005302 




3563 


014402 


0013 72 




3564 


014404 


000207 




3565 
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SKO 00 7 7 



{WALKING ONE/ALL ONE IN ALTERNATING CHARS* + * + 



DATlOi 


MOV 


#2002 ,R2 


{SET BUFFER SIZE 




MOV 


#1,R1 


{SET WALK BASE 




CLC 






1$: 


MOV 


#177400. (R3) 


{LOAD ALL ONE BYTE 




BIS 


R1,(R3)» 


{LOAD WALK BYTE 




ROl.B 


Rl 


{WALK ONE 




DEC 


R2 






BNE 


1$ 


{00 FULL BUFFER 




RTS 


PC 






;ALL 


BITS 0-377*+**+**+*+ 


OATH: 


CLR 


Rl 


jRl-STARTING DATA 




MOV 


#4004, R2 


{R2-CHARACTER COUNTS 


1$: 


MOVB 


Rl,CR3)t 


{LOAD BUFFER 




INCB 


Rl 


{BUMP DATA 




DEC 


R2 


{SEE IF DONE 




BNE 


n 


tIF NOT; BR 




RTS 


PC 


{RETURN 




{ALL 


BITS 377-0********** 


DAT12: 


MOV 


#377, Rl 


jR i "STARTING DATA 




MOV 


#4004, R2 


{R2-CHARACTF.R COUNTS 


1*: 


MOVB 


R1.CR3)* 


{LOAD BUFFER 




DECB 


Rl 


56UMP DATA 




DEC 


R2 


{SEE IF DONE 




BNE 


! J 


j [F NOT; BR 




RTS 


PC 


HE TURN 




{ALTERNATING CHARACTERS 


AND 3 77 ********** 


OAT 13: 


MOV 


#377, Rl 


iRl DATA 




JMP 


DAT1A 


;l OAD BUFFER 




{WALKING 7FRD/AI i ZERO 


IN At TERNATTNG CHARS** 


UAT14: 


MOV 


#2002, R 2 


{SET BUFFER SIZE 




MOV 


#3/6,Rl 


iSET WAt K BASE 




SEC 






1$; 


MOV 


R1.CR3) 


{LOAD WALK Bi TE 




nrc 


#1 .'740Q.IR3)* 


jClear high b^ te 




ROl.B 


Rl 


{WALK ZERO BIT 




ore 


R2 






BNt 


l e > 


{FILL BUFFER 




RTS 


PC 


{RETURN 



c/iedeo 


IM03-TI 


16^ ru// 


DRI 


C/TEDF. 


Pll 07 -MAR -84 


14:04 


35 70 








35/1 








35 /2 


014406 


012/02 


000200 


35 73 


01441? 


012701 


014436 


35 74 


014416 


012704 


000010 


3575 


014422 


012123 




35 76 


014424 


005304 




35 7 7 


014426 


001375 




35/8 


014430 


005302 




35/9 


014432 


001367 




3530 


014434 


000207 




3581 








3582 


014436 


000000 




3583 


014440 


177400 




3584 


014442 


000377 




3585 


014444 


000000 




3586 


014446 


177777 




358 7 


0144 50 


00037 7 




3588 


014452 


17/400 




3589 


014454 


1/7777 




3590 








3591 








3592 








3593 


014456 


013704 


000556 


3594 


014462 


013703 


000562 


3595 


014466 


012701 


177777 


3596 


014472 


005002 




3597 


014474 


004 737 


0224 30 


3598 


014500 


013723 


000636 


3599 


014504 


005204 




3600 


014506 


0013/2 




3601 


014510 


012/37 


000001 


'M>o^ 


014516 


000207 




5603 


014520 


000000 





014520 







Nh 




0(1046) 


07 -MAR 


-84 14:21 PAGE 52 




j AUTO SEQUENCE PATTERN********* 


DAT15t 


MOV 


#200 ,R2 


SET NUMBER OF ENIRIFS 


1$: 


MOV 


#APATS,R1 


SET START OF PATTERN 




MOV 


#10,R4 


SET SIZE OF PATTERN 


2$: 


MOV 


CR1)>,CR3)* 


FILL BUFFER 




DEC 


R4 


SEE IF DONE PATTERN 




BNF. 


2$ 


IF NOT: 8R 




DEC 


R2 


SEE IF DONE BUFER 




BNF 


1$ 


IF NOT: BR 




RTS 


PC 


RETURN 


APATS; 




17 7400 

377 



1 
37 7 














1/7400 

-1 








{RANDOM 


DATA GENERATOR SUBROUTINE********** 


DATR: 


MOV 


FMCNT.R4 


SET NUMBER OF FRAMES 




MOV 


a#W0ATA,R3 


SET ADDRESS OF START OF 




MOV 


#1.R1 


SET HIGH LIMIT 




CLR 


R2 


SET LOU LIMIT 


1$; 


JSR 


PC . RANG 


GO GENERATE NUMBER 




MOV 


RANSAV.CR3)* 


LOAD BUFFER 




INC 


R4 


SEE IF DONE WHOLE BUFFER 




RNF 


1$ 


IF NOT; BR 




MOV 


#l,ROFL 


SET RANDOM DATA FLAG 




RTS 


PC 


EXIT 


RDFL; 







RANDOM DATA SELECT FLAG 



SEQ 0078 



BUFFER 



C/IIDI.O 



'MO 3 
C^H 0\ ,Pll 



U lb U'/7 DH1 
7 MAR 84 14:04 
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SLQ 0079 



3^05 
3b Ob 
3b0 .* 
3b08 
3b0* 
3b 10 
3* L i 
3*12 
3b 1 3 
3bl4 
3b 15 
3b lb 

3b i: 

3blfl 
3bH 
3620 
3621 
3b22 
3b23 
3624 
3625 
3626 
56c 7 
3626 
3629 
3650 
3631 
36 52 
3655 
3654 
3b55 
365*!, 
36 3 / 
36 3A 
5b V* 
364 
3641 
3b4 t > 
564 3 
3#>44 
3b45 
3b 4 6 
364 ; 
3b46 
564'* 
36 SO 
3651 
3b5,' 
3655 
3b54 
3655 
3b 5b 
3»/i ' 
■».#/. H 
**/.'< 
566C 



014522 
01452*> 
014550 
014S34 
014540 
014542 
01454b 
014552 
014554 
014556 
014560 
014564 
014566 
014570 
0145M 
014576 
014602 
014606 
014610 
014614 
014616 
014620 
014624 
014650 
014b5b 
014b42 
014646 
014654 
014b60 
014662 
014bb6 
0146?2 
014674 
014700 
014 704 
014706 
014 710 
014714 
014 720 
014 7c J b 
014750 
014/32 
014/54 
014/42 
014 744 
014 /»,0 
014 752 



013/00 
005400 
013/01 
00505/ 
111104 
004737 
004 737 
00024 1 
006004 
105014 
05270* 
000241 
010405 
042705 
005105 
042 705 
042704 
050504 
010437 
005300 
001550 
013704 
005157 
042757 
042 704 
0504 5 7 
015757 
015700 
005400 
013701 
0050 5 7 
111104 

004 757 
004/57 
005500 
001571 
015704 
004 / 3 7 
015757 
00020 7 

005 704 
00 1 1 
03.-/5/ 
001404 
012 704 
00V01 
00020 7 



000556 

0005b2 
01505b 

014 730 
015052 



000400 



17 7 705 

177703 
0000 74 

015056 



015056 
015056 
17 7050 
1 7 ? I? 1 
016056 
015056 
000556 

000562 
0150S6 

014 750 
015052 



OlSObO 
015032 
015056 



000010 
000420 



Cl.Oi 



CL1 



CL2 



015056 
OlSObO 



CL3j 



015062 



000552 



CUPj 



jCRC/LRC CHARACTER BUILDi 

I 

l THIS ROUTINE WILL CONSTRUCT AND SAVE \Ht EXPECTED 

jCRC AND LRC CHARACTERS ACCORDING TO DATA AND 

j RECORD SIZE V OPERATING IN NRZ MODE 

!********#*#****#*** ******#****#***##**#*#****#* ******** 



CRCLRC: MOV 
NEG 

MOV 
Cl.R 
MOVB 
JSR 
JSR 
Cl C 
ROR 
BCC 
BIS 
CLC 
MOV 
BIC 
COM 
BIC 
BIC 
BIS 
MOV 
DEC 
BNE 
CUASTj MOV 
COM 
BIC 
BIC 
BIS 
MOV 
MOV 
NEC, 
MOV 
Cl R 
MOVB 
JSR 
JSR 
DEC 
BNt 
MOV 
JSR 
MUV 
RTS 
T S T 
HNt 
H! T 
HI a 
MOV 

INC 
nrs 



EMCNT.RO 

RO 

&)0WDATA ( R1 

XORS 

(R1),R4 

PC, CLP 

PC , XOR 

M4 

Cl.2 
0400, R4 

R4.R5 

0177705, RS 

R5 

0177703.R5 

74 14 

R5,r<4 

R4.X0RS 
RO 

CLO 

X0RS.R4 

XORS 

01 7 7050, xQR 1 

01 7 7/2/.R4 
R4.X0RS 
XORS, I xCRC 
KMCNT.RO 
RO 

SOWDATA.Ri 
XORS 

(Rl ),R4 

PC . Cl P 

PC, XOR 

RO 

Ct 5 

\ 'CHC.H4 

PC . XOR 

XUR5.1 XI RC 

PC 

R4 

Cl PE 

010, Mil > 

Cl PI 
.7420 4 R4 

Rl 
PC 



I SET RECORD SI/E 

I SET START OP BUPEfcR 

I GET CHARACTER 

I GO GET PAR IT r OP CHARACTER 

I XOR CHARACTER 

jROTATE 1 RIGHT 
I IF NO CARRt : BR 
\ SET BIT NINE 

l SAVE CHARACTER 



iCOMPi.IMFNT BITS 2,3, 4,S 
iBRANCH IF NOT I AST CHAR 

iCOMPtTMlNT All RUT BITS 3&5 
I SAVE k XPECTEO CRC 

|00 \ XPT I RC 



U>t T PARI T i 

j XOR CHARACTER 

j DO All EOR IRC 

j XOR CRC 10 DATA 

j SAVE E XPT l RC 

I RE TURN 

iSEl IE CHAR 

t IE NOT : MR 

,SU U I V I N PARI T y 

|P NOT: HR 

1 ,M CmAR I vfcN PARlTi 

illnMr PUlKIkH 

|Rl TURN 

















c/ 


count o 


TM03 II 


16 U'.V 


OKI 


MAO 11 


301 1046) 


0/ MAR 


« A i4 j oi pavje 


C*'UPI . 


►Ml 


7 NAM 84 


14 j 04 










5t>t* I 


1 4 754 


005046 






Ct PI- s 


CI R 


( SP ) 


5660 


014 756 


106304 






H: 


ASl B 


R4 


3665 


014 /t>0 


005516 








ADC 


c :>p ) 


36t»4 


014 760 


105 704 








tstb 


R4 


3c* 5 


014 764 


001574 








BNE 


1$ 


3t»66 


014 766 


110104 








MOVH 


(Rl)»,R4 


3t^ * 


014770 


040 704 


177400 






BIC 


0177400, R4 


3t*8 


014 774 


106006 








R0R3 


(3P)» 


5^ikq 


014 7 76 


103405 








PCS 


CIPO 


36 70 


015000 


05073 7 


000010 


000550 




BIT 


•tO.UOFS 


36 n 


015006 


001406 








BEQ 


CI.P3 


3p ;o 


015010 


00000 7 








RTS 


PC 


06 73 


01 SOI J 


030 73 7 


000010 


000550 


Ct.PO: 


BIT 


OIO.UOES 


36 74 


015000 


001001 








BNE 


CLP3 


3t>75 


015000 


00000 7 








RTS 


PC 


3^ V 


0150.74 


050 704 


000400 




CIP3: 


BIS 


0400, R4 


36" 


015030 


000007 








RTS 


PC 


36 *8 
















36 .'9 


015030 


010446 






XOR: 


MOV 


R4 f (SP) 


3680 


015034 


04371b 


01505b 






BIC 


X0R5 . ( SP ) 


3681 


015040 


0404 3 7 


015056 






BIC 


R4.X0R5 


3680 


015044 


05063 7 


015056 






BIS 


(SP). ,XQRS 


3683 


015050 


013704 


01505b 






NOV 


X0RS.R4 


3**84 

3685 
3606 


015054 


00000 7 








RTS 


PC 


015056 


000000 






XCRS: 







368 * 


015060 


000000 






I XCRC; 







3688 


015060 


oooooo 






tXuRC: 







36S9 

















53 l 



l CLEAR WORLING SPACE ON STACK 

{SHIFT DATA 

{ADDUP if OF 1 BITS 

{BRANCH IF* ALL M S LEFT 



iBRANCH IF ODD OF 1 BITS 

jSEE IF SHOULD BF EVEN PARITr 

ilf NOT: BR 

ilLSE EXIT 

I SEE IF SHOULD BE ODD PARITr 

I IF NOT; BR 

lELSE EXIT 

:SET PARITY BIT 



i XOR SUBROUTINE j R4 WITH XORS 



i M)H SAVE 

j i XPECTED CRC 

lEXPECTEO LRC 



SEU 0080 



C/imtO TN03 
C/TIOl .^11 



3t^u 

3t»92 
3f> v »5 
3t>^4 
36^5 

3t» v ><> 

369* 
3t>96 

3 :oo 

5'01 
3 \V 
3 703 
3704 
3 70S 
3*06 

3 ■ o : 

3/08 
3709 

3710 
3711 
371? 
3713 
3714 
3715 
3716 
3717 
3716 
3719 
3720 
3721 
37?? 
3/23 
3724 
3725 
3/26 
3727 
3728 
3729 
3750 
3751 
3732 
3733 
37 34 
3735 
3736 
3/37 
3 7 38 
3 7 39 
3740 
3 741 
3 742 
374 3 
3/44 
3/45 
3746 



It lb U> 
07 -MAR 



84 14;04 
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SEQ 0081 



015064 
0150 70 
0150 74 
015100 
015106 
015110 
015112 
015116 
015122 
015130 
015132 
015140 
015142 
015150 
015152 
015154 
015156 
035160 
015162 
015164 
015166 
015172 
015200 
015202 
015206 
015212 
015216 
015220 
015224 
015226 
015234 
015236 
015240 
015242 
015244 
015246 
0152*34 
015256 
015260 
015266 
0152/0 



005037 
005037 
013705 
032737 
001401 
006205 
013701 
013702 
032737 
001430 
032737 
001024 
032737 
001020 
105711 
001404 
005201 
005205 
001373 
000406 
112721 
012737 
000767 
013705 
013701 
005737 
001462 
013704 
005404 
032737 
001402 
000241 
006004 
060401 
060402 
03273/ 
001401 
105 72? 
03273/ 
001431 
000241 



000664 
000712 
000556 
000020 



000562 
000564 
000010 

000020 

002000 



000020 
177777 

000556 
0005^2 
000570 

000556 

000020 



000001 
000020 



DCHK : 



000552 

000552 
000552 
000552 



DCHKO 



013766 



DFOF: 
DFOE: 

DFODt 

DFOC: 
DF'OCO 
DFOB; 



000552 



DFOBO 
000556 

000552 DFOA; 



{DATA CHECK SUBROUTINE: 

I THIS SUBROUTINE IS USED TO COMPARE EACH CHARACTER 
jOF DATA READ FROM TAPE WITH THE EXPECTED CHARACTER. 
I ANY ERROR DETECTED WILL CAUSE CONTROL TO BF 
i PASSED TO AN ERROR PRINT SUBROUTINE AND A 
{SUBROUTINE TO ACCUMULATE THE NUMBER OF BITS 
{DROPPED AND PICKED UP FROM EACH CHARACTER, 
iTHE NUMBER OF READ ERRORS IS ALSO ACCUMULA TED . 
{DATA CHECKING MAY BE TERMINATED BY USE OF 
{CONSOLE SWITCH THIRTEEN (13). 



CLR BBC 

CLR DERFL 

MOV FMCNT.R5 

BIT 020.UDES 

BEQ DCHKO 

ASR R5 

MOV QdUDATA.Rl 

MOV 80RDATA.R2 

BIT *10»L*)ES 

BEQ DFOCO 

BIT O20.U0ES 

BNE DFOCO 

BIT 02000, UDbS 

BNE DFOCO 

TSTB (Rl) 

BEQ DFOD 

INC Rl 

INC R5 

BNE DFOF 

BR DFOC 

MOVB 020, (Rl)* 

MOV 0-1. PATS 

BR DFOF 

MOV FMCNT.R5 

MOV a^WDATA.Rl 

TST ROCMD 

BEQ DFO 

MOV FMCNT.R4 

NEG R4 

BIT 02O.UOES 

BEQ DFOBO 

CL.T 

ROR R4 

ADD R4.R1 

ADD R4.R2 

BIT Ol.FMCNT 

BFQ DFO A 

TSTB (R2)» 

BIT 020,UOES 

BFQ DF0A4 

CLC 



CLEAR BAD RECORD CNTR 

CLEAR DATA ERROR FLAG 

LOAD CHAR COUNT 

SEE IF CORE DUMP 

IF NOT: BR 

R5 - FC/2 

SET WRITE DATA ADDR 

SET READ DATA ADDR 

SEE IF EVEN PARITY 

IF' NOT: BR 

SEE IF CORE DUMP PARIH 

IF SO: BR 

SEE IF PE MODE 

IF SO: BR 

SEE IF CHAR 

IF SO: BR 

BUMP POINTER 

SEE IF DGNE 

IF NOT: BR 

ELSE CONTINUE 

SET 20 IN PLACE OF 

SET PATTERN GENERATE FLAG 

RESET CHAR CNT 
RESET DATA ADDRESS 
SEE IF READ REVERSE 
IF NOT: BR 
GET FRAME COUNT 
SET TO WHOLE NUMBER 
SEE IF CORE DUMP 
IF NOT : BR 



SET TO FC/2 
POINT TO START OF 
POINT TO START OF 
SEE IF ODD FRAME 
IF NOT: BR 
BUMP POINTER 
SI E U CURE DUMP 
IF" NOT; BR 



WR1 TE DATA 
RFAO DATA 
COUNT 



cmedeo INOS-rUb' TU.V ort 
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SEQ 0082 



3/4 7 

3 748 
3 749 

3755 
3754 
3755 

3 756 
3757 
3/58 
3759 
3760 
3761 
3762 
3 763 
3764 
3765 
3766 
3767 
3768 
3769 
3770 
3771 
37 72 
3773 
3 7 74 

3775 

3776 
37 77 
3778 
37 79 
3 780 
3/81 
3782 
3783 
3784 
3 785 
3 786 
3 78/ 
3 788 
3789 
3 790 
3/91 
379? 
3/9'. 
3794 



015272 

015276 
015300 
015302 
015304 
015306 
015312 
015314 
015316 
015320 
015322 
015326 
015330 
015332 
015334 
015336 
015342 
015344 
015346 
015350 
015352 
015354 
015356 
015362 
015364 
015366 
015370 
015374 
015376 
015402 
015406 
015410 
015412 
015416 
015420 
015422 
015426 
015432 
015434 
015440 
015442 
015446 
015452 
015454 
015460 
015462 
015466 



132742 
001401 
000261 
106012 
000241 
132712 
001401 
000261 
106012 
00024 1 
132712 
001401 
000261 
106012 
000241 
132712 
001401 
000261 
106012 
005202 
124142 
001010 
105037 
0004 1 1 
122122 
001003 
105037 
000404 
004 73/ 
004 737 
005205 
001404 
005737 
001762 
000717 
005037 
005737 
001415 
005737 
001012 
013704 
005737 
001003 
005264 

000402 
005264 

000207 



000001 



000001 



000001 



000001 



000664 



000664 

016134 
0154 70 



000570 

0006/2 
000712 

000714 

000702 
0005/0 

001134 

001174 



DF'OAO; 
OFOAls 

DFOAP: 

DF0A3: 

DF0A4; 

DFO: 

DF 1 : 
DF2s 

DF3: 



DF4: 
DFX; 



BITB 

BEQ 

SEC 

RORB 

ClC 

BITB 

BEQ 

SEC 

RORB 

CLC 

BITB 

BEQ 

StC 

RORB 

CLC 

BITB 

BEQ 

SEC 

RORB 

INC 

CMPB 

BNE 

CLRB 

BR 

CMPB 

BNE 

CLRB 

BR 

JSR 

JSR 

INC 

BEQ 

TST 

BEQ 

BR 

CLR 

TST 

BEQ 

TST 

BNE 

MOV 

TST 

BNE 

INC 

BR 

INC 

RTS 



01, CR2) 
DFOAO 

(R2) 

Ol.CRP) 
DF0A1 

(R2) 

<H,(R2) 

DF0A2 

(RP) 

01. (RP) 

DF0A3 

(RP) 

R2 

(Rl), -CR2) 
DF1 
BBC 
DF2 

(R1)*.(RP)* 
DF1 
BBC 
DF2 

PC.DRPKF 
PC.DERR 
R5 
DF3 
RDCMD 
DFO 
DFOA 
HORFL 
DERFL 
DFX 
SERF! 
DK X 

UNP.R4 
RDCMD 
OF'4 

DATERlt R4 1 
l)Fx 

1)1 WLVKR4) 
PC 



{SEE IF BIT 
j IF NOT; BR 



{POSITION BITS FOR REVERSE CORE DUMP 



{RESET POINTER 

{TEST DATA CHARACTER 

{IF NOT GOOD: BR 

{CLEAR BAD RECORD COUNTER 



{CHECK DATA 
;IF BAD: BR 
{CLEAR BAD RECORD 



CNTR 



{GO GET DROPS AND PICKS 

{GO DO PRINT 

{BUMP CHAR CNTR 

{IF DONE ALL; BR 

{SEE IF READ REVERSE 

;IF NOT: BR 

tEl.SE CONTINUE RtAD REV 

{CLEAR HEADv'R F'l AG 

{SEE IF HAD DATA ERROR 

j IF NOT; BR 

{IF NOT DATA ERROR ONLY; BR 

{SEE IF RFAD REVFRSF 

{IF SO: BR 

tBUMP DATA ERROR FORWARD COUNTER 

{BUMP REVERSE DATA ERROR 
{EXIT 



c: 1 1 o\ o 


W03 H 


lb Ui.** 


DPI 


cmot- . 


Pll 


7 -MAR 84 


14:04 


5 *^ 








?:•*.' 








3 " l \8 








3 >i^ 








3800 








3801 








S8tV 








380? 








3804 








3 80S 








38 Ov 








380 : 








3808 








380* 








3810 








3811 








38U % 








3813 








3814 








3815 








3816 








3817 








3818 








3819 








3820 








3821 








3822 








3823 








382* 


0154/0 


0327 7 7 


002000 


3825 


015476 


001057 




3826 


015500 


005237 


0006 76 


3827 


015504 


005737 


000672 


3828 


015510 


001006 




3829 


015512 


004737 


022126 


3830 


015516 


000004 


023722 


3831 


015522 


004737 


020364 


3832 


015526 


000004 


023741 


3833 


015532 


010203 




3834 


015534 


163703 


000564 


3835 


015540 


005303 




3836 


015542 


005737 


000570 


3837 


015546 


001402 




3838 


015550 


010503 




3839 


015552 


005103 




3840 


015554 


104400 




3841 


015556 


000004 


023727 


3842 


015562 


005737 


000570 


3843 


015566 


001402 




3844 


0155 70 


111103 




3845 


015572 


000401 




3846 


015574 


114103 




384 7 


015576 


004 737 


023504 


3848 


015602 


000004 


023734 


3849 


015606 


005 73 7 


000570 


38)0 


01561? 


001402 




3851 


015614 


111203 
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SEQ 0083 



163120 DERR: 
DERRO: 



DERROA: 



DERROB 



DERROC 
DERROD 



{DATA ERROR SUBROUTINE: 

ITHIS SUBROUTINE IS USEO TO PRINT OUT ANY 

: ERRORS FOUND DURING THE DATA CHECK. 

{EACH CHARACTER FOUND BAD WILL BE PRINTEO 

j IN HIT FORMAT ALONG WITH ITS EXPECTED CHARACTER. 

I AN ERROR HEADER CONSISTING OF THE UNIT NUMBER. 

{BLOCK NUMBER, RECORD NUMBER, SIZE OF RECORD, AND 

{ERROR TYPE (READ FORWARD, READ REVERSE, WRITE, ETC) 

jTS PRINTED ONLY ONCE FOR EACH RECORD FOUND BAD. 

5 A COUNT IS MADE OF THE NUMBER OF SUCCESSIVE BAD 

{CHARACTERS, AND IF TEN (10) SUCCESSIVE BAD CHARACTERS 

{ARE FOUND IN A SINGLE RECORD. A MESSAGE INDICATING 

{A BAD RECORD CONDITION IS PRINTED AND THE NEXT 

{TWENTY (20) CHARACTERS ARE SKIPPED BEFORE CHECKING 

jIS RESUMED. IF THE BAD RECORD CONDITION IS FOUND 

{THREE TIMES IN A RECORD, ALL REMAINING DATA IS 

{SKIPPED EXCEPT THE FINAL TEN (10) CHARACTERS. 

{THIS SKIPPING IS OF COURSE ONLY POSSIBLE IN 

{RECORDS WHICH CONTAIN A SUFFICIENT NUMBER OF CHARACTERS 

{PRINTING OF ERRORS MAY BE DISALLOWED AT ANY TIME 

{BY SETTING CONSOLE SWITCH TEN (10) TO A ONE. 

{THE OPERATOR MAY CAUSE THE PROGRAM TO HALT ON ANY ERROR 

jBY SETTING CONSOLE SWITCH FIFTEEN (15) TO A ONE. 



BIT 02000, aSWR 

BNE DERR4 

TNC PFLG 

TST HDRFL 

BNE DERROA 

JSR PC.PAPRT 

TYPE.MSG1 

JSR PC.FRPRT 

TYPE.MSG4 

MOV R2.R3 

SUB aORDATA,R3 

DEC R3 

TST RDCMD 

BEQ DERROB 

MOV R5.R3 

COM R3 

TYPOCT 

TYPE.MSG2 

TST RDCMD 

BEQ DERROC 

MOVB IR1),R3 

BR DERROD 

MOVB -(R1),R3 

JSR PC.DOUT 

TYPF.M5G3 

TST RDCMO 

BEQ DFRR1 

MUVB CR2),R3 



{BRANCH IF NO ERROR 

{PRINTOUT DESIRED 

{SET PRINT FLAG 

{SEE IF HAVE PRINTED HEADER 

5 IF SO: BR 

{PRINT CfCLE NUMBER 

{TYPE DATA ERROR TAG 

{PRINT F OR R 

{TYPE CHAR * TAG 



*DE' 



CN' 



{POINT TO CHAR 



{SEE If READ REVERSE 
{IF NOT? BR 
{GET CHAR NUMBER 

{PRINT CHAR NUMBER 

I TYPE GOOD CHAR TAG ' G' 

;SEE IF READ REVERSE 

{IF NOT: BR 

{GET CHAR 

{LOAD EXPECTED DATA 

iGO PRINT CHAR 

5 !>PE BAD CHARACTER TAG 

»SEE U Ri AD REVERSE 

{ L> NOT: BR 

{GET CHAR 



B 



c/n-Di-.o 


IN03 TE U>/TU?? 


DRT 


MACY11 


30(1046) 


G/ 

07-MAR-84 14:21 PAGE 


55-1 


CZTEDE. 


PI I 07 -MAR -84 


14 j 04 












385? 


015616 


000401 








BR 


DERR2 




3853 


015620 


114203 






DERR1: 


MOVB 


(R2),R3 




3854 


015622 


004 737 


023504 




DERR2: 


JSR 


PC.DOUT 


{PRINT BAD CHAR 


5855 


015626 


005737 


000570 






TST 


RDCMD 


;BRANCH IF READ 


385b 


015632 


001001 








BNE 


DERR4 


{REVERSE 


385? 


015634 


12212? 






DERR3: 


CMPB 


(R1)»,(R2)» 


{RESET POINTERS 


3858 


015636 


105237 


000664 




DERR4: 


INCB 


BBC 


{BUMP BAD RECORD CNTR 


385^ 


015642 


122737 


000010 


000664 




CMPB 


no, BBC 


{SEE IF BLD BTH 


3860 


015650 


001107 








BNE 


DEREX 


{IF NOT: BR 


3861 


015652 


032777 


002000 


162736 




HIT 


02000, SJSWR 


{SEE IF PRINT INHIBIT 


386? 


015660 


001002 








BNE 


U 


{IF S0{ BR 


3863 


015662 


000004 


024022 






TYPE, 


MSG15 


j TYPE 'BAD RECORD' 


3864 


015666 


105037 


000664 




1$: 


CLRB 


BBC 


{RESET BPD RECORD CNTR 


3865 


015672 


105237 


000665 






INCB 


BBC*1 


{BUMP AMOUNT 


3866 


015676 


122737 


000003 


000665 




CMPB 


03,BBC*1 


{SEE IF HAD 3 BLD BTHS 


386? 


015704 


101047 








BHI 


DERR4B 


{IF NOT: BR 


3868 


015706 


022705 


177767 






CMP 


0177767, R5 


{SEE IF ON LAST EIGHT CHARS 


3869 


015712 


101464 








BIOS 


DERR6 


{IF SO: BR 


3870 


015714 


012705 


177/67 






MOV 


0177767, R5 


{SET CHAR CNTR TO 8 


38?1 


015720 


005737 


000570 






TST 


RDCMD 


{SEE IF READ REVERSE 


387? 


015724 


001416 








BEQ 


DERR4A 


{IF NOT: BR 


3373 


015726 


013701 


000562 






MOV 


30WDATA.R1 


{GET START OF BUFFER 


3874 


015732 


013702 


000564 






MOV 


SORDATA.R? 


{GET START OF BUFFER 


3875 


015736 


062701 


000010 






ADD 


010, Rl 




3876 


015742 


062702 


000010 






ADD 


010, R2 


{POINT TO START ♦ 10 


3877 


015746 


032737 


000001 


000556 




BIT 


Ol.FMCNT 


{SEE IF ODD FRAME COUNT 


3878 


015754 


001445 








3F.Q 


DEREX 


{IF NOT: BR 


3879 


015756 


105722 








TSTB 


CR2)» 


;BUMP POINTER 


3880 


015760 


000443 








BR 


DEREX 




3881 


015762 


013737 


000556 


000652 


UERR4A: 


MOV 


FMCNT, TEMPI 


{LOAD CHAR COUNT 


3882 


015770 


005437 


000652 






NEG 


TEMPI 


{♦►B 


3883 


015774 


162737 


000010 


000652 




SUB 


010. TEMPI 


{POINT TO BUFFER -8 


3884 


016002 


013701 


000652 






MOV 


TEMPI, Rl 


{POINT TO NEXT CHAR 


3885 


016006 


063701 


000562 






ADD 


aOUDATA.Rl 


{POINT TO NEXT WRITE CHAR 


3886 


016012 


013702 


000652 






MOV 


TEMPI, R? 


{PUTNT TO END OF READ DATA -8 FORWARD 


3887 


016016 


063702 


000564 






ADD 


30RDATA.R2 


{POINT TO NEXT CHAR 


3838 


016022 


000422 








BR 


DEREX 


{EXIT 


3889 


016024 


062 705 


000024 




DERR4B: 


ADD 


024, R5 


{SKIP 20 CHARS 


3890 


016030 


103415 








BCS 


DERR6 


;IF EXCEED RECORD SIZE: BR 


3891 


016032 


005737 


000570 






TST 


RDCMD 


;SEE IF RtAD REVERSE 


3892 


016036 


001405 








BEQ 


DERR5 


{IF NOT: BR 


3893 


016040 


162701 


000024 






SUB 


024, Rl 




3894 


016044 


162702 


000024 






SUB 


024. R2 


{RESET POINTERS 


3895 


016050 


000407 








BR 


DEREX 




3896 


016052 


062701 


000024 




DERR5: 


ADD 


o?4,Rl 


{SKIP 20 CHARS 


3897 


016056 


062702 


000024 






ADD 


0?4,H? 


{SKIP FORWARD 20 CHARS 


3898 


01606? 


000402 








RR 


DERF.X 




3899 


016O64 


012705 


177777 




DERR6: 


MOV 


1.R5 


{SET TO FOR 


3900 


016070 


0057/7 


162522 




DEREX: 


TST 


aswH 


{BRANCH IF NOT HALT ON ERROR 


3901 


016074 


100012 








DPI 


DLRl XI 




3902 


0160 76 


000000 








HAl r 






390 3 


016100 


005737 


000676 






TST 


ph g 


{SLF IF PRINTED 


3904 


016104 


001006 








HNfr 


DEREX l 


{IF SO: BR 


3905 


016106 


0327/7 


002000 


162502 




fill 


02000, qJSWR 


{SEE U SHOULD PRINT 


3906 


016114 


001002 








HW 


DEREX1 


{ If NOT: BR 


3907 


016116 


000137 


015500 






JMP 


UtRRO 


lELSt PRINT 



SEQ 0084 



C/IEDEO TN03-Tt.lb^ tu; : OR] 

CZTE-;OF,Pll 07-MAR-84 14;04 



3*08 
3>W 
3S>10 



OlbKV 

oibi2b 

016132 



005057 

00523.- 
000207 



000b 76 
000712 



1-1/ 



NACY11 301 1046) 07 -MAR -84 14:21 PAGE 55-2 



DEREXi; 



CLR 
TNC 
RTS 



Pf IX, 
Df.RFL 

PC 



SLQ 0085 



j CLEAR FLAG 

i BUMP DATA F.RROR FLAG 

j RETURN 



c:\i mo 1H03 

CZTEDE,Pll 



5** 13 
3^14 
3915 
3916 
3*1" 
3^18 
39 L* 
3^V0 
39.: 1 
3922 
3923 
3924 
3925 
3926 
39.: ' 
3928 
3*29 
3930 
3931 
3932 
3933 
3934 
3935 
3936 

393 7 
3938 
3939 
3940 
3^4 1 

3942 
3943 

3944 
3945 
3946 

394 7 
3948 
3949 
3950 
3951 
395? 
3953 
3954 
3955 
3956 
3957 
3958 
3959 
3960 
3961 
3962 
3963 
3964 
3965 
39*.'"- 
39*, .' 
3968 



n.i& w:: dri 

07 -MAR -84 14 {04 



.1 / 

MACUl 30(1046) 07 MAR -84 14 s 21 PAGE 56 



SEQ 0086 



016134 
016140 
016144 
016150 
016154 
016160 
016164 
016172 
016200 
016204 
016206 
01621C 
016214 
016220 
016224 
016230 

016232 
016236 
016242 
03.6244 
016246 
016250 
016256 
016262 
016264 
016270 
016272 
016276 
016300 
016306 
016310 
016314 
016320 
016322 
016326 
016530 
016336 



005037 
005037 
005037 
111137 
111237 
013704 
016437 
016437 
005737 
001005 
124142 
112137 
112237 
004737 
004737 
000207 

113703 
113704 
140403 
001001 
000207 
012737 
132703 
001451 
105737 
001014 
0052 7 7 
100043 
032777 
001402 
004 73 7 
004737 
000413 
00527 7 
10002 / 
032// ' 
001402 



000652 
000654 
000656 
000652 
000654 
000702 
000774 
001014 
000570 



000652 
000654 
016232 
016440 



000652 
000654 



000010 
000001 

000656 

162426 

002000 

022126 

016504 

162400 
002000 



DRPKF ; 



000726 
000724 



DRPK : 

DROP: 
DPC; 



000716 DPCG: 
DPCO: 



162310 



DPCOA 
DPCli 



{DROPS AND PICKS SUBROUTINE; 

j THIS SUBROUTINE IS USED TO ACCUMULATE FROM 

j EACH BAD DATA CHARACTER FOUND THE NUMBER 

{OF BITS WHICH WERE EITHER DROPPED OR PICKED UP. 

{TWO COUNTERS PER SLAVE ARE USED TO ACCUMULATE THIS 

{INFORMATION AND CAN STORE UP TO 32K DROPS 

;0R PICKS BEFORE OVERFLOWING. IF OVERFLOW IS 

{ABOUT TO OCCUR, THESE ACCUMULATORS ARE 

{PRINTED IN OCTAL AND RESET TO ZERO. 

5 THE CONTENTS OF THE ACCUMULATORS MAI BE 

{DISPLAYED AT ANY TIME BY SETTING CONSOLE 

{SUITCH FOURTEEN TO A ONE (1). THE PRINTOUT WILL OCCUR 

;AT THE END OF THE CURRENT BLOCK CYCLE. 



162260 



Cl.R 
CLR 

CLR 

MOVB 

MOVB 

MOV 

MOV 

MOV 

1ST 

BNE 

CMPB 

MOVB 

MOVB 

JSR 

JSR 

RTS 

MOVB 

MOVB 

BICB 

BNE 

RTS 

MOV 

BITB 

BEQ 

TSTB 

BNt 

INC 

BPl 

BIT 

BEQ 

JSR 

JSR 

BR 

INC 

BPl 

BIT 

BLQ 



TEMPI 

TEMP2 

TEMP3 

(Rl), TEMPI {LOAD 

(R2),TEMP2 sLOAD 

UNP.R4 

PIKKR4) .BPKP 

DRP1(R4).B0PP 

RDCMD 

DRPK 

CRD.-CR2) 
(Rl)», TEMPI 
(R2)»,TE:MP2 
PC, DROP 
PC, PICK 
PC 



GOOD CHAR 
BAD CHAR 



{SEE IF READ REVERSE 
iU SO: BR 
{POINT TO CHAR 
{LOAD GOOD CHAR 
;LOAD BAD CHAR 
I GET DROPS 
{GET PICKS 
{EXIT 



TEMPI, R3 
TEMP2.R4 
R4.R3 
DPCG 
PC 

010.BCNT 
• I. R3 
UPC 2 

temp; 

DPCl 

mhdpp 

\)PC?. 

02000, as WR 

DPCOA 

PC.PAPRT 

PC , DPPR T 

0PC2A 

qJBPKP 

DPC2 

02000, 3S WR 

DPCIA 



R3 « GOOD CHAR 

R4 « BAD CHAR 

GET DROPS/PICKS 

IF SOMl : BR 

RETURN 

SET NUMBER TO CHf CK 

SEE IF DROPPED OR PICKED 

IF NOT; BR 

SEE IF ON PICKS 

IF SO; BR 

BUMP DROP CNTR 

IF NO OVERFLOW; BR 

SEE If HAVE PRINTED DATA 

IF SO: BR 

PRINT C»Ct E NUMBFR 

PRINT DROPS AND PICKS 



THIS BIT 



{BUMP PICK CNTR 

l£ BR IF NO OvERFl Ou 

{SfE U HAvE PRINTED QAM 

tU SO: BR 



CZTEDEO TM03-TF.16/ru7? DR1 
CZTEDE.P11 07-MAR-84 14:04 



MACY11 30C1046) 07-MAR-84 14:21 



J/ 

PAGE 56-1 



SfeQ 0087 



3969 
3970 
397 1 
39 72 
3<»73 
39 74 
5975 
39 76 
39 7 7 
397*1 
39 7 « 
3980 
3981 
398.? 
3983 
3984 
398 r > 
3986 
398? 
3988 
3989 
3990 
3991 
3992 
3993 
3994 
3995 
3996 
399 7 
3998 
3999 
4000 
4001 
4002 
4003 
4004 
4005 
4006 
4007 
4006 
4009 
4010 
4011 
4012 
4013 
4014 
4015 
4016 
4017 



016310 
016344 
016350 
016354 
016360 
016364 
016372 
016374 
016376 
016402 
016404 
016406 
016410 
Oi6412 

C16-U6 

016420 
016426 
016434 
016436 
016440 
016444 
016452 
016460 
016464 
016470 
0164 76 
016502 
016504 
016510 
016514 
016522 
016530 
016536 
016544 
016552 
016556 
016560 
016564 
016566 
0165/4 
016576 
016604 
016610 
016614 
016616 
016622 
016624 
016632 
016634 



004 737 
004 737 
013704 
016403 
016404 
012737 
005023 
005024 
005337 
0013/6 
000207 
00024 1 
106003 
00533 7 
001-107 
062737 
062737 
000710 
00020 7 
013704 
016437 
016437 
113704 
113703 
11273/ 
004737 
00020 7 
000004 
013704 
016437 
016437 
062737 
062737 
012737 
017703 
104400 
00533 7 
001404 
162737 
000766 
01273? 
000004 
017 703 
104400 
0053 3 7 
001404 
162 73 7 
000 766 
0002O 7 



022126 

016504 
000 702 
001014 
000774 
000010 



000716 



000716 

000002 
000002 



000702 
000774 
001014 
000652 
000654 
OOOO01 
016242 

024333 
000702 
001014 
000774 
000016 
000016 
000010 
162146 

000716 

000002 

000010 
024344 
162112 

000716 
000002 



000716 



000726 
000724 



000726 
000724 

000656 



000724 
000726 
000724 
000726 
000716 



000/24 
000716 



DPC1A; 
DPC2A; 



DPC28 : 



DPC2: 



DPC3; 

PICK: 



OPPRT- 



UPPRTO: 



DPPRTl : 
DPPRT2: 



000 726 



DPPRTX; 



JSR 

JSR 

MOV 

MOV 

MOV 

MOV 

CLR 

CLR 

DEC 

BNE 

RTS 

CI C 

RORB 

OEC 

BEQ 

ADD 

ADD 

BR 

RTS 

MOV 

MOV 

MOV 

MOVB 

MOVB 

MOVB 

JSR 

RTS 

TYPE, 

MOV 

MOV 

MOV 

ADD 

ADD 

MOV 

MOV 

TYPOC 

OEC 

BEQ 

sue 

BR 

MOV 

TYPE, 

MOV 

TYPOC 

DEC 

BEQ 

\UH 

BR 

RTS 



PC.PAPRT 

PC.DPPRT 

UNP,R4 

DRP1(R4),R3 

PIK1(R4) I R4 

010, BCNT 

(R3V 

(R4)f 

BCNT 

DPC2B 

PC 

R3 

BCNT 
DPC3 
42.BPKP 
02.BDPP 
DPCO 
PC 

UNP,R4 

PIK1CR4),BPKP 
DRP1(R4),BDPP 
TEMPI, R4 
TF.MP2.R3 
<U,TEMP3 
PC,DPC 
PC 
MSG26 

UNP.R4 

DRP1(R4),BDPP 

PIK1(R4),BPKP 

416.BDPP 

016,BPKP 

010, BCNT 

3BDPP.R3 

BCNT 

DPPRTl 

#2,BDPP 

DPPRTO 
010, BCNT 
MSG2 / 

ubpkp.r^ 

T 

BCNT 
OPPHTX 

».- t nPKP 

DPPRT2 
PC 



j PRINT CYCLE NUMBER 
{PRINT DROPS AND PICKS 

jSET DROP POINTER 
{SET PICK POINTER 
} SET NUMBER OF BITS 
{CLEAR DROPS 
} CLEAR PICK 
j SEE If DONE 
1 IF NOT: BR 
{EXIT 

{GET NEXT BIT 
}SEE IF DONE 



CONTINUE 
RETURN 
GET UNIT 



SET 

SET 

R4 

R3 

SET 

GO 

EXIT 

TYPE 



POINTER 
PICK POINTER 
DF>OP POINTER 

- GOOD CHAR 

- BAD CHAP 
PICK K AG 

CHECK PICKS 



DROPS' 



SET DROP 
SFT PICK 



POINTER 
POINTER 



j SET 



NUMBER TO PRINT 



; PR INT DROPS 

} 5E E U DONE 

:IF NOT: BR 

{BUMP POINTER 

{CONTINUE FOR Al.l 8 BITS 

jSE T NUMBER TO PRINT 

jTyPE PICKS' 



{PRINT PICKS 
{SEE IF OONt 
{IF SO: BR 

•BUMP POINTER 
; CONTINUE FOR 
{RETURN 



ALL 8 BITS 



c/unt.o imo5 

CZTEDE.Pll 

4019 
4020 
4021 
4022 
4023 
4024 
4025 
•KVb 

40.-: ; 

4028 
4029 
4030 
4031 
4032 
403? 
4034 
4035 
403b 
403" 
4038 
4039 
4040 
4041 
404 c 1 
404 3 
4044 
4045 
4046 
404 7 
4048 
4049 
4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 
4058 
4059 
4060 
4061 
406? 
4063 
4064 
4065 
4066 
406/ 
4068 
4 069 
40/0 
40/1 

4 0/;' 

40/3 
4074 



n 16 m;: dpi 

07-MAR-84 14«04 



MAO 11 30(1046) 0/ MAR -84 14:21 



\< / 

PAGE 57 



SEQ 0088 



016636 
016642 
016646 
016650 
016652 
016654 
016662 
016664 
016666 
016674 
016676 
016702 
016704 
016710 
016/14 
016716 
016722 
016724 

016 730 

016/36 
016740 
016742 
016746 
016 752 
016756 
016 762 
016764 
016/66 
0167 70 
016774 



013/03 
032703 
001401 
005303 
005403 
032737 
001401 
006203 
032737 
001413 
005/37 
001405 
013703 
162703 
000405 
063703 
000402 
063703 

03277 7 
001403 
005 726 
00013/ 
010337 
012704 
012701 
005021 
005304 
001375 
0203 7 7 
001402 



000556 
000001 



000020 

000010 

000570 

000564 
000002 

000564 
000562 
040000 



020426 
020340 
00000 7 
020342 



161520 



ERCHK 



IS: 



000552 
000700 2$: 



3$: 

41: 
161566 ER2 

1$: 
2*: 



. ****« + ***«**** + *******4*4********* + + **4+* + * + 4* + *4> + t* + 

? STATUS CHECK SUBROUTINE: 



this subroutine; is used to perform a CHECK OF' 

BOTH THE MASSBUS CONTROLLER CRH11) AND THE TAPE 
CONTROLLER ( TM02 ) . THE RH11 IS CHECKED FOR ERRORS 
AS REELECTED IN REGISTERS CS1 AND CS2 AND Al SO THAT 
THE BUS ADDRESS (BA) AND WORD COUNT CWC) ARE 
CORRECT. THE TM02 IS CHECKED FOR DRIVE STATIS CDS), 
DRIVE ERRORS (ER), AND PROPER FRAME COUNT. THE SPECIAL 
CHECK CHARACTERS (CRC'LRC) ARE ALSO CHECKED WHEN 
APPROPIATE CIE: NRZ READ OR WRITE). CERTAIN TYPES 
OF DRIVE ERRORS IN PE OPERATION WILL BE ACCOMPANIED 
BY THE DISPLAY OF THE DEAD TRACK REGISTER (CO. THESE 
TYPES ARE ER BITS 15,10,7,6. THE PRINTOUTS OF BAD 
CRC.LRC.FC, AND BA WILL SHOW BOTH THE EXPECTED AND 
RECEIVED VALUES (IE: EXPT-RCVD). ONLY THOSE REGISTERS 
WHICH ARE IN ERROR WILL BE PRINTED AND ALL PRINTOUTS 
ARE IN OCTAL FORMAT WITH NO LEADING ZEROS. AS IN 
DATA ERRORS, STATUS ERRORS ARE PRECEEDED Br HEADER 
DESCRIBING THE HARDWARE UNDER TEST, THE BLOCKING 
INFORMATION, AND THE ERROR TYPE. 

t**H**Mi******.U*^**M***«4.»********** ************* 



MOV FMCNT.R3 

BIT *1,R3 

BEQ 1$ 

DEC R3 

NEG R3 

BIT $20,UDES 

BEQ 2i 

ASR R3 

BIT fllO.MTCl 

BEQ 4$ 

TST RDCMD 

BEQ 3$ 

MOV a#RDATA,R3 

SUB 02, R 3 

BR ER2 

ADO a#RDATA,R3 

RR E R ' 

ADD aoWDATA.RS 

BIT 040000, 3ER 

BEQ 1$ 

TST (SP)» 

JMP UH-LINE 

MUV R3.CADER 

MOV tf?,R4 

MOV «fHAER t Rl 

CLR (Rl)» 

DEC R4 

BNE 2$ 

CMP R3 ( o)BA 

BEQ 3$ 



{GET FRAME COUNT 
j SEE IF ODD 

iIF NOT: BR 
{BUMP COUNT 

l SEE IF CORE DUMP 
r^ NOT: BR 
SET TO FC/2 
SEE If WRITE OP 
IF SO: BR 



{SET POINTER 

{BUILD EXPT READ ADDRESS 

{BUILD EXPT WRITE ADDRESS 

{BRANCH IF NOT UNSAFE 

{ADJUST STACK 

{GO MARK UNIT OFfLINE 

{SAVE ADDRESS 

{CLEAR FLAGS 



;SEE U ADDRESS UK 
{IF SO: BR 



C/H DEO 


TM05 U H> Ui/7 


DRT 


MACtll 


30C 1046) 


7 MAR 


1 / 

-84 14; 21 PAGE 


57 1 


CZTtDt. 


Pll 07-MAR-84 


14:04 












4o ;s 


016 7 76 


005237 


020342 






INC 


BALR 


I SET BUS ADDRESS ERROR 


40 76 


017002 


032737 


000010 


000700 


3$: 


BIT 


410.MTC1 


{SEE IF WRITE OPER 


4077 


017010 


001006 








BNE 


5$ 


l IF NOT; BR 


4078 


017012 


0057 7 7 


161500 




4$: 


1ST 


tf-C 


jSEE IF FC-0 


4079 


017016 


001440 








BEG 


i R3 


lIF SO: BR 


4080 


017020 


005237 


020350 






INC 


U'ER 


{SET FC ERROR 


4081 


017024 


000435 








BR 


FR3 




4082 


017026 


032737 


000040 


000700 


5*: 


BIT 


440. M TCI 


jSEE IF SPACE OPER 


4063 


017034 


001766 








BEQ 


4$ 


;IF SO: BR 


4084 


017036 


005737 


000704 






T5T 


TMFl.G 


{SEE IF TM TIME 


4085 


017042 


001011 








BNE 


7$ 


{IF SO: BR 


4086 


017044 


013703 


000556 






MOV 


FMCNT.R3 




4087 


017050 


005403 








NEG 


R3 


} R3 - EXPT RECORD SIZE 


4088 


017052 


0203 7/ 


161440 




6$: 


CMP 


R3.3FC 


;SEE IK FC =" EXPT 


4089 


017056 


001420 








BEQ 


ER3 


s IF SO: BR 


4090 


017060 


005237 


020350 






INC 


FCER 


{SET FC ERROR FLAG 


4091 


017064 


000415 








BR 


ER3 




4092 


017066 


032737 


002000 


000552 


7$; 


BIT 


42000, UDES 


{SEE IF PE 


4093 


017074 


001346 








BNE 


4$ 


{IF SO: BR 


4094 


017076 


005737 


000570 






1ST 


RDCMD 


{SHE IF READ REVERSE 


4093 


017102 


001003 








BNE 


8$ 


;IF SO: BR 


4096 


017104 


012703 


000002 






MOV 


42, R3 




4097 


017110 


000760 








BR 


6* 


;l OOK FOR EXPT - 2 


4098 


017112 


012703 


000001 




6$: 


MOV 


41.R3 




4099 


017116 


000755 








BR 


6$ 


;G0 CHECK FC FOR TM 


4100 


















4101 


017120 


032777 


160000 


161362 


ER3: 


BIT 


4160000 ,aCl 


{SEE IF COUNT ERROR 


4102 


017126 


0014 3 7 








BEQ 


ER4 




4103 


017130 


017703 


161364 






MOV 


u)CS,R3 


{GET CONT STATUS REG 


4104 


017134 


042703 


00030/ 






BIC 


4307, R3 


{MASK OUT TR, OR .UNIT NO. 


4105 


017140 


001406 








BEQ 


1$ 


{IF NOT: OR 


4106 


017142 


005737 


000704 






T5T 


TMFLG 


{SEE IF TAPE MARK TIME 


4107 


017146 


001425 








BEQ 


3$ 


{IF NOT: BR 


4108 


017150 


042703 


001000 






BIC 


41000.R3 


{MASK MISSED TRANS £ BR 


4109 


017154 


001022 








BNE 


34 




4110 


017156 


0327/7 


060000 


161324 


1*: 


BIT 


460000, aci 


;SEt IE EITHER TRE OR MC 


4111 


017164 


001420 








BtQ 


ER4 


5 IF NOT: BR 


4112 


017166 


005737 


000704 






TST 


IMF I n 


{SEE IF TM TIME 


4113 


017172 


001413 








BEQ 


3 5 


{IF NOT: BR 


4114 


017174 


017703 


161324 






MOV 


SER.R3 


jGET ERROR REGISTER 


4115 


017200 


032737 


000010 


000552 




BIT 


410, UDES 


{SEE IF EVEN PARITY 


4116 


017206 


001402 








BEQ 


2$ 


{IF NOT: BR 


4U7 


017210 


042703 


000100 






BIC 


4100, H3 


{MASK PAR 


4118 


017214 


042703 


001000 




?*: 


BIC 


A1000.R3 


{MASK FCE 


4119 


017220 


001402 








BEU 


ER4 


{IE NO ERRORS EXCEPT FCE 


41^0 
'121 
4122 


017222 


005237 


020344 




3$: 


INC 


CONER 


{SET CONT ERROR Fl AG 


017226 


0327 7/ 


040000 


161266 


ER4: 


BIT 


440000 ,BDS 


{SEE IF DRIVE ERROR 


4123 


017234 


001420 








BE Q 


ER6 


{IK NOT : BR 


4124 


017236 


005737 


000704 






1ST 


TMFl G 


{SEE IF TAPE MARK TIME 


4125 


017242 


001413 








BEQ 


2 J 


{IF NOT: BR 


4 ? 26 


01/244 


017703 


161254 






MOV 


SER.R? 


{GET ER 


4 i 2 7 


017250 


03273 7 


000010 


000552 




HIT 


410,udfs 


{SEP IF FVFN PAR IT 1 


4 1 28 


01/256 


001402 








HEU 


i$ 


{IF NOT: RR 


4 1 2'-* 


01/260 


042703 


000100 






BIC 


0100.R3 


{MASK PAR 


4130 


017264 


042703 


001000 




1 *: 


BIC 


4 1000, R 3 


{MASK OUT FCE t\ BRANCH I 



SEQ 0089 



G SEE IF OTHER ERRORS 



IF OTHER ERRORS 



BR 



CZTEDE. 

4131 
413? 

4133 
4134 
4135 
4 136 
4137 
4138 
4139 
4 140 
4141 
414? 

4143 
4144 
4145 
4146 
4 14 7 
4148 
4149 
4150 
4151 
4152 
4153 
4154 
4155 
4156 
4157 
4158 
4159 
4160 
4161 
4162 
4163 
4164 
4 165 
4166 
4167 
4168 
4169 
4170 
4171 
417? 
4173 
4174 
4175 
4176 
4177 
4 178 
4179 
4180 
4181 
418? 
4183 
4 184 
4 185 
4186 



1M03 Tt 16/1U.V DR1 
Pll 07 -MAR 84 14 



04 



MACY11 30(1046) 07 -MAR -84 



i4;21 PAGE 57-2 



SEQ 0090 



017270 

017272 

017276 

017304 
017312 
017320 
01732? 
017330 
017332 
017340 
01734? 
017346 
017350 
017554 
017362 
017370 
017372 
017376 
01740? 
017406 
017410 
017414 
017420 
01742? 
017424 
017426 
017432 
017436 
017442 
017444 
017450 
017454 
017460 
017462 
017466 
01747? 
017476 
01750? 
017506 
017510 
01751? 
017514 
017516 
0175?? 
017526 
017534 
01754? 
017544 
01755? 
017554 
017560 
01756? 
017566 
017570 
017576 



001402 
005237 

013737 

013737 

032737 

001062 

032777 

001056 

032737 

001452 

005737 

001405 

005037 

012737 

032737 

001036 

017703 

042703 

023703 

001402 

005?37 

017 703 

000303 

005703 

100002 

052703 

042703 

023703 

00141.1 

010337 

005237 

005737 

001402 

005037 

012703 

005037 

005037 

012704 

005724 

001004 

005303 

0013 74 

000137 

005237 

017737 

032777 

001420 

022737 

001006 

013703 

005203 

02033 7 

00x406 

02273 7 

001402 



020346 

015060 

01506 .' 
002000 

020C 00 

000040 
000704 

015060 
000023 
000060 

161132 
177C00 
015060 

020354 
161114 



000400 
177000 
01506? 

02035b 
02035? 

000570 

0?0352 
000006 
000 714 
000/30 
020342 



000714 
160772 
002000 

000002 

000710 

00061? 

00000? 



020362 
020360 
00055? 

161266 

000700 



015062 
000552 



2$: 

ER6: 



000 730 
161054 

000/20 



BEQ 

INC 



020346 



MOV 
MOV 
BIT 
BNE 
BIT 
BNE 
BIT 
BEQ 
TST 
BEU 
CLR 
MOV 

1$: BIT 
BNE. 
MOV 
BIC 
CMP 
BEQ 
INC 

2$: MOV 
SWAB 
TST 
BPL 
BIS 

3$i BIC 
CMP 
BEQ 
MOV 
INC 
TST 
BEQ 
CLP 

ERPT: MOV 
CLR 
CLR 
MOV 

ERPTT: TST 
BNE 
DEC 
BNE 
JMP 

ERPTG: INC 
MOV 
BIT 
BEQ 
CMP 
BNF 
MOV 
INC 
CMP 
Ul.U 

ERPTlil: CMP 
BEQ 



ER6 
DRVER 

EXCRC.CRCSV 

EXLRC.LRCSV 

42000, UDES 

ERPT 

420000, 5)SWR 

ERPT 

#40.MTC1 

ERPT 

TMFLG 

1$ 

EXCRC 

423.EXLRC 

#60, UDES 

EFPT 

acc.RJ 

#177000, R3 

EXCRC.R3 

2$ 

CRCER 

QMR.R3 

R3 

R3 

3$ 

#400, R3 

#1 7 7000, R 3 

EXLRC.RS 

ERPT 

R3.ACTLRC 

LRCER 

RDCMD 

ERPT 

LRCER 

#6,R3 

SERFL 

ERSAV 

ABAER.R4 

(R4)- 

ERPTG 

R3 

ERPTT 

ERPX1 

SERFL 

ar.R.ER 1 ;\v 

#2000, 6, SVR 

ERPTO 

<V. r -?TiFL 

( rpn.;i 

RTCNT.R3 

R3 

R3.RETRY 

ERPTO 

#2. DRVER 

ERPTO 



i NO OTHER ERRORS 

;SET DRIVER ERROR FLAG 

j SAVE LXPECTED CRC 
I AND EXPECTED LRC 

(IF IN PE MODE: BR 

I SEE IF NO DATA CHECK 

; IF NOT: BR CALLOW READ OF UNKNOWN TAPES) 

(SEE IF WRITE OR READ OP 

j I> NOT: BR 

j SEE IF TAPE MARK TIME 

j IF NOT: BR 

(SET CRC/LRC FOR TM 
jSEE IF FORMAT 14 
(IF NOT: BR 

;GET CRC CHARACTER 



(IF CRC GOOD: BR 
{SET ERROR FLAG 
;GET LRC 



i IF LRC GOOD: BR 
(SAVE ACTUAL l.RC 

SET LRC ERROR FLAG 

SEE IF READ REVERSE 

IF NOT: BR 

ELSE CLEAR LRC ERROR 

(CLEAR ERROR FLAG 



: SEE U ANY ERROR 
(IF SO: BR 



(SET ERROR (LAG 

.SAVE ERROR REGISTER 

I SEE IF PRINT 

(IF SO: BR 

j SEE IF READ RETRY 

( IF NOT : BR 

jBU-.P RETR> COUNT 

j SEE IF LAST RETRt 

(IF SO: L1R 

j^.K IF TM STATUS ERRUR 

:TF SO: BR 



CZTEDEO TM03-TH6/ TU7/ DRT 
CZTEDE.P11 07-MAR-84 14:04 



MACY11 50(1046) 07 -MAR -84 



N7 

14:21 PAGE 57-3 



SEQ 0091 



4187 
4188 
4189 
4190 
4191 
4192 
4193 
4194 
4195 
4196 
4197 
4198 
4 199 
4200 
4201 
4202 
4203 
4204 
4205 
4206 
4207 
4208 
4 209 
4210 
4211 
4212 
4213 
4214 
4215 
4216 
4217 
4218 
4219 
4220 
4221 
4 222 
4223 
4224 
4225 
4226 
4227 
4228 
4229 
4230 
4231 
4232 
4233 
4234 
4235 
4236 
4237 
4238 
4239 
4240 
4241 
4242 



017600 
017604 
017610 
017614 
017622 
017624 
017626 
017632 
017636 
017640 
017646 
017650 
017654 
017660 
017662 
017666 
017672 
017674 
017700 
017704 
017706 
017712 
017714 
017720 
017724 
017 726 
017732 
017736 
017740 
017 744 
017746 
017752 
017756 
01/760 
017764 
017770 
017772 
017776 
020000 
020004 
020010 
020012 
020016 
020022 
020024 
020030 
020032 
020036 
020042 
020046 
020050 
020054 
020060 
0200b2 
020066 
020070 



000137 
005237 
004737 
013737 
000004 
000000 
004737 
005737 
001406 
022737 
001402 
000004 
005737 
001412 
000004 
017" ^ 
104400 
000004 
017703 
104400 
005737 
001412 
000004 
017703 
104400 
000004 
01/703 
104400 
005737 
001412 
000004 
017703 
104400 
000004 
013703 
104400 
005/37 
001405 
000004 
017703 
104400 
000004 
017703 
104400 
005 737 
001414 
000004 
017703 
042703 
104400 
0C0004 
013705 
104400 
005737 
0(>1412 
000004 



017624 



020164 
000676 
022126 
000660 



020364 
000704 

025212 000660 

025230 
020344 

0.^137 

160616 

024164 
160614 

020346 

024172 

160576 

024177 
160566 

020342 

024152 
160536 

023720 
020340 

020350 

024157 

160506 

024145 
1604 70 

020354 

025255 

160466 
177000 

025720 
015060 

020352 

025263 



ERPTOs 



1$ 



ERPT1 



ERPT2: 



ERPT3: 



EPPT4 



ERPT5; 



JMP 

INC 

JSR 

MOV 

TYPF 

.WORD 

JSR 

TST 

GEQ 

CMP 

BEQ 



ERPXO 

PFLG 

PC.PAPRT 

EMADDR.l* 




ERPT5A: 



PC.FRPRT 

TMFLG 

ERPT1 

4MSG54.EMADDR 

ERPT1 
TYPE.MSG56 
TST CONER 

BEQ ERPT2 

TYPE.MSG23 
MOV 3C1.R3 

TYPOCT 
TYPE.MSG23D 
MOV 5JCS.R3 

TYPOCT 

TST DRVER 

BEQ ERPT3 

TYPE.MSG23E 
MOV 3DS.R3 

TYPOCT 
TYPE.MSG23F 
MOV SER.R3 

TYPOCT 

TST BAER 

RLQ ERPT4 

UPE.MSG23B 
MOV 8BA.R3 

TYPOCT 
TYPF. t DASH 
MOV CADER.R3 

TYPOCT 

TST KCER 

BEQ ERPT5 

HPE.MSG23C 
MOV aFC,R3 

TYPOCT 
TYPE.MSG23A 
MOV £)WC,R3 

TYPOCT 

TST CRCt.R 

BEQ FHPT5A 

IYPE.MSG58 

MOV acc.RS 

BIC #17/000, R3 

npocr 

1YPK.DASH 

MOV F.XCRC.R5 

TYPOCT 

TS1 LRCER 

tlt'U ERPT6 

TYPE.MS059 



{PRINT HEADER 

{GET ADDRESS OF ERROR MSG HEADER 

{ADDRESS OF ERROR MESSAGE HEADER 
{PRINT F OR R 



{TYPE » TM' 

j IF NO CONT ERROR: BR 
;TYPE'CS1* 

{PRINT CONTROL 1 
jTYPE CS TAG 

{PRINT CONT STATUS 

{IF SO DRIVE ERROR j BR 
{TYPE DS TAG 

{PRINT DRIVE STATUS 
{TYPE ER TAG 

{PRINT DRIVE ERROR 

{IF NO BA ERROR: BR 
{TYPE BA TAG 

{PRINT BUS ADDRFSS 



{PRINT EXPT BUS ADDRESS 

{IF NO FC ERROR: BR 
{TYPE FC TAG 

{PRINT FRAME COUNT 
{TYPE WC TAG 

{PRINT WORD COUNT 

I IF NO CRC ERROR: BR 
{TYPE CRC TAG 



{PRINT ACTUAL CRC 



{PRINT f-XPECTED CRC 

; LF NO t RC ERROR: BR 
iTiPfc LRC ERR TAG 



CMEDEO 


TM05 Tt Hi- IU77 


DRT 


MACUl 


30( 1046) 


7 MAR 


•84 14 :21 


CZTEDE , 


PI I 0/ -MAR -84 


14 j 04 










4243 


0200 74 


013703 


020356 






MOV 


ACTl RC.R3 


4244 


020100 


104400 








1 YPUCI 




4245 


020102 


000004 


023 720 






TtPE.DASH 


4/4t> 


020106 


013703 


015062 






MOV 


EXl.RC,ft3 


424* 


020112 


104400 








t>poct 




4/48 


020114 


005737 


020346 




ERPTfei 


TST 


DRVER 


424* 


020120 


001420 








BEO 


ERPT7 


4/50 


020122 


032737 


002000 


000552 




BM 


02000, UDES 


4251 


020130 


001414 








BEQ 


ERPT7 


4252 


020132 


017 704 


160366 






MOV 


8ER.R4 


4255 


020136 


04/704 


754 7 7 






BIC 


754 7/.R4 


4/54 


020142 


00140 7 








BEG 


ERPT f 


4255 


020144 


000004 


024211 






TtPE.MS 


G23H 


4256 


020150 


017703 


160354 






t^O^ 


WCC.R5 


425* 


020154 


042 703 


177000 






BIC 


01 7 7000, R J 


4258 


020160 


104400 








TlPOCT 




425* 


020162 


000240 






tRPT/r 


NOP 




4260 


020164 


0057 7 7 


160426 




ERPXO: 


TST 


&JSUR 


4/6l 


020170 


100012 








BPl 


ERPX 


4262 


020172 


OCOOOO 








HALT 




4263 


020174 


00573 7 


0006 76 






TST 


PFLG 


4264 


020200 


001006 








BNt 


ERPX 


4265 


020202 


0327 7 7 


002000 


160406 




DIT 


02000, BSWR 


4266 


020210 


001002 








BNE 


ERPX 


426 7 


020212 


00013 7 


017604 






JMP 


I.RPTO 


4268 


020216 


00503 7 


0006 76 




ERPXj 


CLR 


PUG 


4269 


020222 


00573 7 


0005 74 






TST 


CRCC 


4270 


020226 


00100 7 








BNt 


11 


4271 


0/0230 


C12/77 


000040 


160262 




MOV 


o4o, acs 


42.V 


020236 


015777 


000550 


160254 




MOV 


DVN.flCS 


4/7 5 


020244 


000414 








BR 


2$ 


4? '4 


0/0246 


0127/7 


0000 1 1 


160234 


11: 


MOV 


on.act 


42 75 


0/0254 


017 704 


160246 






MOV 


HA5.R4 


4/ *6 


020260 


010477 


16024/ 






MOV 


R4.yAS 


4/7 7 


020264 


013704 


000510 






MOV 


C1.R4 


4/7fl 


0/02 70 


005204 








INC 


R4 


4/74 


0/02 72 


152714 


000100 






BtSB 


0100, (R4 ) 


4/80 


0/02 76 


4 .3777 


000552 


1602 *6 


21: 


MOV 


UO* S.UTC 


4, '81 


0/0 504 


052737 


000040 


000 700 


KRPX1: 


BH 


040.MTC1 


4/8/ 


02051/ 


001411 








BEQ 


tRP*.-' 


4/85 


020314 


00575 7 


000 704 






TST 


T Mf I G 


4/84 


0/0320 


001406 








BEQ 


FRPa2 


4285 


020322 


015737 


02056/ 


015060 




MOV 


CRCsv.t.xCHC 


4/86 


0/0350 


013737 


020300 


01^062 




MOV 


l HCSV»fcXLRC 


4/ ft- 7 


0/0 3 56 


00020 7 






fRPXc: 


RTS 


PC 


4 ..'88 


020 340 


000000 






CADt R: 







4289 


02034/ 


000000 






BAER: 







4/90 


0/0 544 


000000 






CONfrR: 







4/91 


0/0 346 


000000 






ORVFR; 


u 




4/9/ 


0/0 550 


000000 






KfrPs 







429 5 


0/0 55/ 


000000 






l RCFR; 







4/94 


0/0 5S4 


oooooo 






CRCt R: 







4/ * f . 


0/0 55*, 


0000 00 






ACM HC : 







4."». 


0/0 560 


oooooo 






I RCSV; 







4.. « ' 


020362 


QOOOQO 






CHCiiV; 








J » I 

PAGE 57-4 



SEQ 0092 



PRINT ACTUA! IRC 

PRIN1 EXPECTED I.RC 

IF NO DRIVE ERROR: BR 

IF NO PE j BR 

MASK OUT All BUT BUS 15,10,7,6 
IF NO CONDITIONALS SET: BR 
TyPF CC TAG 

MASK CC 

PRINT CHECK CHARACTERS 

BRANCH IE NOT HALT ON ERROR 

SEE IF' HAVE PRINTED 

V SO; BR 

SEE rr SHOULD PRINT 

ir NOT: BR 

PRINT ERROR 

BRANCH U CRC ERROR 
CORRECTION DESIRf I) 
ELSE INI T 
RESET DRIVE NUMBER 

DRIVE CLEAR 

Ct t AR AS 



Rl M T TRf 
RES! T TC 

If NOT RtAD'WRlU OP; BR 

U NOT TM 1 IMt } BR 

Rt STORE CRC 

RESTORE t RC 

t XI r 

tXPT ADDRESS SAVE 



4/^8 



w 



0/4055 

00000*7 



c:n oio imo5 n u> ii'.v dri 

C/Ttpt ,^U 0/ -MAR -84 14; 04 



4/0*i 

4 500 

4 501 

•J 50/ 

4 50 5 

4 504 

4 505 

4 50^ 

4 50 * 

4 508 0/0564 05/75/ 

4 50^ 0/05*/ 001414 

4510 0*70 5. '4 01/ 75/ 

4511 0/040/ 05/75/ 
451/ 0/0410 001005 
4515 0/041/ 01/737 
4 514 0/04/0 000004 
4 51!* 0/04// 000000 
45 J* 0/04/4 000/0? 
451 ' 

45 IS 
4 51^ 
4 5/0 

4 5/1 0/04/6 015 701 
4 5// 0/04 5/ 05/761 
45/5 0/0440 000004 
45/4 0/0444 005 757 
4 5/5 0/0450 001406 
45/6 0/045/ 000004 
4 5/* 0/0456 01/706 
4 5/8 0/046/ 00015/ 
45/^ 0/0466 10555 7 
4550 0/04// 001005 
4 551 0/04 74 U00004 
4 5 5/ 0/0500 000000 
455*- 0/050/ 000137 
4334 



000 70c' 
040000 
0/4/61 
000 74/ 

0/1)446 
000500 
0/154/ 

00504 5 

0/6410 

004/66 



MACU1 50(1046) 0/ MAR 84 14./1 PAGE. 



SKQ 00^5 



000010 000/00 f'RPRT 



0/04// 

000 700 



0/405/ 0/04// 



1* 
/I 

5$ 



|*«*********+***+*********+**++**+*********«»*#«****** 

if KIR KORWARD/R KQR RFVF.RSF PRINT SUBROUTINE} 

\ 

j THIS SUBROUTINE: IS UStD TO PRINT OUT THE 

I TAPE DIRECTION USFD WHEN ANt tRROR 15 

iDtHCTtD IN STATUS Of READ OR WRITt, DATA, OR 

l SPACING OPERATIONS. 

j»*»«*****************************+***************t+*« 

|SEF IF WRITE COMMAND 

iV SO: BR 

jPRSFT MESSAGE TO RfcAD REVERSE 

, BRANCH IK REVERSE 

I SET FORWARD MESSAGE 
iTfPF. M5G 

{EXIT 



BIT 


<UO,MTCl 


bf:q 


3$ 


MOV 


omsgi /./$ 


Mil 


ft/.MTCl 


BNE 


1$ 


MOV 


GMSGlb,/* 


T»Pt 




.WORO 





RTS 


PC 



j ROUTINE TO MARK UNIT 0M i INF 



OFFLINE} MOV 
OIS 



1$ 



/$ 



l»4P,Rt jGf T UNIT POINTER 

MOOOO. UNKR1) jMARK \JU I T OH L INI 

TtPF.MSlV. jTtPt 'Si AVI UNSAM NO H»KlH»k TESTING ON oLAVE. 

TST ASKUf" jHRANCH V NOT IN AUTO SE UUE NCt 

EfeQ II 

TtPE.MSGI/5 i T i PI- 'AUTO SI U TEST Will RESTART 

MOV 0500.SP i RESIT STACK PTM 

JMP AS! UO jRISTAR* AUTO St U 

DI.CB RtOTC»l (DECREMENT UNITS TO T| ,T OTR 

HNf /* 

TtPE 4 M$U1// i T t P|- NO UNITS LfcFT TO TtST £ HAL. T • 

hai r 

JMP RLOT 



C/TEDEO TM05 
C/TEDf.PU 



4 33 7 

4558 
4 35^ 

4 540 
4 54 1 
434? 
4 54 5 
4 544 
4 345 
434fr 
4 54 ' 
4 548 
434 1 * 
4 550 
4551 

43 V 

4553 
4 554 
4 355 

4 55b 
4 35 7 

4 358 
4 359 
4360 
4561 
4 36? 
4363 
4 364 
4 36b 
4 366 
4367 
4 368 
4 369 
4370 
4371 
4372 
4573 
4 374 



U le> IU 
7 -MAR 



' / DR1 
84 14 i 04 



MACU1 501104b) 07 MAR-H4 14:21 
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SEQ 00^4 



4 375 
4 376 
437 7 
4378 
4 3 79 
4 580 
4381 
438? 
4 383 
4 384 
4 385 
4 386 
4 3H / 
4 388 
4 389 
4 390 
4 391 
4 39? 



020506 
020512 
020520 
020526 
020530 
020534 
020542 
020544 
020550 
020554 
0205^2 
020564 

0205 72 
020574 
020600 
020602 
020606 
020612 
020614 
020616 
020620 
02062? 
020630 

0206 32 
0206 34 
0206 56 
020642 



00503 7 
013777 
032777 
001402 
000137 
032777 

001410 
004737 
000004 
032777 
001374 
022737 
001003 
012 704 
000406 
013704 
032 704 
001401 
005304 
000261 
006004 
032737 
00140? 
00026 1 
006004 
0104/7 
0127/7 



160000 
157776 



000652 
000550 
040000 

020426 
020000 

022126 
026244 
020000 

000026 

17/777 

000556 
000001 



000020 000552 



TAPG: 



157760 TAPU3; 



15/740 
000 700 



1*: 
TAPG5F": 

TAPG3A. 
TAPG3B: 



l:\Pf COMMAND EXECUTE SUBROUTINE} 

miS SUBROUTINE IS USED TO EXECUTE THE 

MAG TAPE COMHANO DESCRIBED BY THE READ 

OR WRITE ROUTINE, THfc FINAL COMMAND IS 

5FNT TO THE DEVICE REGISTER ALONG WITH THE 

INTERRUPT ENABLE AND GO BITS. 

ONCE i HE COMMAND IS ISSUED, AN INTERRUPT 

TIMER IS STARTED AND IF NO INTERRUPT IS RETURNED 

BEFORE TIME OUT OCCURS, AN ERROR WILL BE 

PRINlrD AND r HE PROGRAM STOPPED. TESTING MAY 

BE ^|,S^ED » v PRESSING THE CONTINUE SWITCH. 

TWO INTERRUPT HANDLERS ARE USED, ONE FOR MAG TAPE 

MNO ANOTHER FOR TELETYPE CTTY). 

UP')U RECEIPT OF A MAG TAPE INTERRUPT, HOUSEKEEPING 

Is PERFORMED ANO CONTROL RETURNED TO THE CALLING 

ROUTINE (READ, WRITE, ETC). 

RECEIPT OT A TTY INTERRUPT WILL CAUSE THE 

PROGRAM TO CHECK FOR ENTRr OF A CNTRL C CHARACTER. 

IF NOT CNTRL C, THEN CONTINUATION OF WAIT FOR MAG 

TAPE INTERRUPT IS RETURNED. IF, HOWEVER, THE TTy 

INTERRUPT WAS CAUSED BY ENTRY OF A CNTRL C, 

THEN AT THIS TIME REQUESTS FOR NEW STALL VALUES 

ARE PRINTED ANO THE RESPONSES ENTERED. RESUMPTION 

OF 1APE INTERRUPT WAIT IS THEN RFSUMED. 

********* I*************************************** * * it* 



15 '650 
000011 



15 7640 



TAPU5Cj 



CLR 

MOV 
BIT 
BEU 
JMP 
BIT 

be a 

JSR 

TYPE 

BIT 

BNE 

CMP 

BNE 

MOV 

BR 

MOV 

BIT 

HE U 

DEC 

SEC 

ROR 

BIT 

HE (J 

SE C 

ROR 

MOV 

MOV 



TEMPI 
DVN.8CS 
040000. QER 
TAPG 3 
OFFLINE 
$20000, o)0S 
TAPG3F 
PC.PAPRT 
,MSG116 

*?0000,o)0S 
l« 

026.MIC1 
TAPG3A 

1.R4 
TAPG3H 
FMCNT.R4 

01 ,W4 
1APG5H 
R4 

R4 

02O.UOE S 
TAPG3C 

R4 

R4 , o)UC 

Gll.tfCl 



SET DRIVE NO. 
SEE IF UNIT SAFE 

IF SO: BR 

GO MARK UNIT Of F -LINE 

SEE. V PIP RESET 

V SO: BR 

PRINT HEADER 

TYPE MSG 

AWAIT PIP RESET 
SEE If WRITE TM 
IF NOT: BR 
ELSE SET EC FOR 1 



l SET WC 

I SEE U 
I IF NOT 



|U 



• F C? FOR NORMAl 
CURE DUMP FORMAT 
BR 



FORMAT 



T WC • y C 4 FUR CORE DUMP 
r'.\ I wORh COUNT 
j DRIVE CI EAR 



cvumo 


1M05 n i6 w: : 


DRT 


MACUl 


30(1046) 


0/-MAR 


h « 
^ti4 14 5 21 PAGE 


58 1 


CZTfcDfc. 


PI I 07-MAR-84 


14:04 












43^3 


020650 


01/7/7 


15 7642 


157640 




MOV 


SFC.SJFC 


j RE SET FC LOADED 


4394 


020656 


005737 


000576 






TST 


INTRF 


j SEE IF INTERCHANGE READ 


439? 


020662 


001407 








BEU 


TAPG30 


iIF NOT: BR 


4 396 


020664 


032737 


000040 


000700 




BIT 


040.MTC1 


I SEE IF READ OP 


439? 


0206 72 


001403 








BEQ 


TAPG3D 


iIF NOT: BR 


4 398 


0206 74 


012777 


000003 


15/632 




MOV 


43.SMR 


{SET INTERCHANGE READ MAINT, MO 


4 39°> 


020702 


013704 


000700 




TAPG3D: 


MOV 


MTC1.R4 


iGET COMMAND 


4400 


020706 


042704 


177707 






BIC 


0177707, R4 


j MASK OP CODE 


4401 


020 712 


022704 


000030 






CMP 


030, R4 


{SEE IF SPACE OP CODE 


4402 


020716 


001403 








BEQ 


TAPG3E 


iIF SO: BR 


4403 


020720 


012737 


177740 


000674 




MOV 


*-40,STAL 


j SET INTERRUPT DELAY MI.H T TO 40 


4404 


020726 


052737 


000101 


000 700 


TAPG3E; 


BIS 


0101. MTC1 


iSET INTERRUPT ENABLE AND GO 


440? 


020734 


000240 








NOP 






4406 


020736 


015777 


000700 


157544 




MOV 


MTCl.aCl 


j EXECUTE COMMAND 


440 7 


020744 


005077 


157644 






CLR 


SPSW 


{CLEAR PRIORITY 


4408 


020750 


005037 


000652 






CLR 


TEMPI 




4409 


020754 


005237 


000652 




TAPG4- 


INC 


TEMPI 


tSEE IF HAVE TIMED OUT 


4410 


020760 


001375 








BNE 


TAPG4 


»IE NOT: BR 


44U 


020762 


005237 


000674 






INC 


STAL 




4412 


020766 


001372 








BNE 


TAPG4 


sDO TIME DELAY MULTIPLIER 


4413 


020770 


012777 


000340 


157616 


TAPG5: 


MOV 


0340, SPSW 


{RESET PRIORI!* 


4414 


020776 


032777 


002000 


157612 




BIT 


02C00,aSWR 


jSEE IF SHOULD PRINT ERRORS 


4415 


021004 


001013 








BNE 


TAPG6 


j IF NOT: BR 


4416 


021006 


00473? 


022126 






JSR 


PC.PAPRT 


{PRINT CYCLE NUMBER 


4417 


021012 


013737 


000660 


021022 




MOV 


EMADDR.l* 




441fi 


021020 


000004 








TYPE 




{TYPE MSG 


4419 


021022 


000000 






1$: 


.WORD 







4420 


021024 


004737 


020364 






JSR 


PC.FRPRT 


{PRINT F OR R 


44R1 


021030 


000004 


024242 






TYPE.MSG24 


{TYPE 'NO INTERRUPT 


4422 


021034 


0057 7 7 


157556 




TAPG6: 


TST 


3SUR 


{BRANCH IF NOT HALT ON ERROR 


4423 


021040 


100001 








HP I. 


TAPG7 




4424 


021042 


000000 








HALT 






442*1 
4426 


021044 


000137 


021276 




TAPU7j 


JMP 


MTINTA 


{RETURN TO CALLING ROUTINE 



SEQ 0095 



C/T t 01 


TM03 n it* ru/7 


DR1 


cztede. 


Pll 07 -MAR -84 


14; 04 


4428 








4429 








4450 


021050 


017746 


157546 


4451 


021054 


042716 


000200 


4432 


021060 


122716 


000003 


4433 


021064 


001005 




4434 


021066 


000005 




4435 


021070 


0050 7 7 


157520 


4436 


021074 


000137 


000200 


443? 


021100 


122716 


000001 


4438 


021104 


001015 




4439 


021106 


022737 


000176 


4440 


021114 


001014 




4441 


021116 


012737 


177570 


444? 


021124 


004737 


022546 


4443 


021130 


000004 


026362 


4444 


021134 


004 737 


022570 


4445 


021140 


022716 


00000 7 


4446 


021144 


001005 




4447 


021146 


012737 


000176 


4448 


021154 


004737 


022462 


4449 


021160 


022716 


000002 


4450 


021164 


001041 




4451 


021166 


004737 


022546 


4452 


021172 


005237 


013560 


4453 


021176 


004737 


013342 


4454 


021202 


032777 


000040 


4455 


021210 


001425 




445o 


021212 


000004 


025052 


4457 


021216 


013703 


000610 


4458 


021222 


104400 




4459 


021224 


012705 


000610 


4460 


021230 


012701 


000007 


4461 


021234 


012702 


17777/ 


4462 


021240 


012703 


002000 


4463 


021244 


004737 


022612 


4464 


021250 


004737 


022570 


4465 


021254 


005726 




4466 


021256 


012716 


011102 


446'' 


C21262 


000002 




4468 


021264 


004737 


022570 


4469 


021270 


005726 




44 70 


021272 


000002 




44/1 








44/2 








44 7 3 


021274 


000240 




44/4 


021276 


042 77 7 


00003/ 


4 4/5 


021304 


013716 


000670 


4476 


021310 


000002 





MACU1 30(1046) 07-MAR-84 14:21 



" 8 

PAGE 



TTINT 



1$ 



000616 
000616 



2$ 

000616 3$ 

4$ 



157406 



157230 



5J 
6$ 



MTINT; 
MTINTAj 



sTTY interrupt HANDLER 



MOV 

BIC 

CMPB 

BNE 

RESET 

CLR 

JMP 

CMPB 

BNE 

CMP 

BNE 

MOV 

I CD 



STKB, -(SP) 
#200. COP) 

03, (SP) 
1$ 

SPSW 
30200 
Ol.CSP) 
2J 

OSWREG.SWR 
3$ 

0177570.SWR 
PC.. SAVE 



TYPE.MSG121 

JSR PC,. RESTORE 

CMP 07. (SP) 

BNE 4i 

MOV OSWREG.SWR 

JSR PC.GTSWR 

CMP 02, (SP) 

BNE 6$ 

JSR PC.. SAVE 

INC SCVFL 

JSR PC.TINP3A 

BIT 040.SSWR 

BEQ 5$ 

TYPE,MSG44 



MOV 

TYPOCT 

MOV 

MCV 

MOV 

MOV 

JSR 

JSR 

TST 

MOV 

RTI 

JSR 

TST 

RTI 



T *j i ML. |Ho 

0YSTAL.R5 
07, Rl 
0-1. R2 
02000, R3 
PC.TTR 
PC, .RFSTORE 
(SP)» 
OYO/.CSP) 

PC. RESTORE 
(SP)* 



59 



{GET CHARACTER 
{STRIP PARITY BIT 
{BRANCH IF NOT tC 

{RESET ALL I/O 
{CLEAR PSW 
{RESTART PROGRAM 
{BRANCH IF NOT t-A 

{BRANCH IF HARDWARE SWR IS INVOKED 

{INVOKE HARWARE SWR 

{SAVE REGISTERS ON THE STACK 

{TYPE 'HARDWARE SWR IN USE' 

{RESTORE REGISTERS 

{BRANCH IF NOT *G 

{INVOKE SOFTWARE SWR 
iGEl SWITCHES 
{BRANCH IF NOT tB 

;SAVE REGISTERS ON THE STACK 
{SET FLAG 

{GO CHECK CRC CORRECTION 
{BRANCH IF NOT YOZZLING 

{REQUEST NEW YOZZLE STALL 

jPRINT PRESENT STALL 

{SET ADDRESS OF YSTL 

{SET NUMBER OF CHAR TO INPUT 

{SET MAXIMUM LIMIT 

{SET MINIMUM LIMIT 

{GO GET VALUE 

{RESTORE REGISTERS 

{POP CHARACTER OF THE STACK 

{RETURN TO ' YOZ' 

{RETURN TO *0Z 

{POP CHARACTER OFF THE STACK 
{RETURN 



SEQ 0096 



{MAG 

NOP 

HIC 

MOV 

RTI 



TAPE INTERRUPT HANDLER 



03/,aMK 
RTRN.(SP) 



{CLEAR MAINT MODE 

{SET RETURN TO (RTRN) 
{RETURN 



c:u i)i o 


IN03 u 


Ui lU.V 


Dm 


CJTKDr. 


PI I 0? -MAR 84 


14:04 


44 78 








44 :* 








4480 








4481 








4482 








4485 








4484 








4485 








4486 








44 87 


021312 


000004 


02567 7 


4488 


021516 


012705 


000746 


4489 


02152? 


012701 


000002 


4490 


021526 


012702 


OOOOOl 


4491 


021352 


012703 


000000 


449;? 


021336 


004737 


022612 


4495 


021342 


005037 


000550 


4494 


021546 


004757 


021454 


4495 


021552 


000004 


02564 7 


4496 


021556 


000004 


025156 


4497 


021362 


013703 


000550 


4498 


021366 


104400 




4499 


021370 


000004 


026535 


4500 


021374 


000004 


024600 


4501 


021400 


012700 


000752 


4502 


021404 


012003 




4503 


021406 


100402 




4504 


021410 


104400 




4505 


021412 


000774 




4 50o 


021414 


004 737 


021640 


4507 


021420 


00473 7 


0217 72 


4508 


021424 


022737 


000007 


4509 


021432 


001403 




4510 


021434 


005237 


000550 


4511 


021440 


000742 




■'■51? 


021442 


005737 


000746 


4515 


021446 


001335 




4514 


021450 


000137 


004774 



NACU1 30C1046) 07 -MAR -84 14{21 
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SEQ 0097 



00055Q 



2***+****************************++ 
{AUTO SEQUENCE 

STHIS ROUTINE .ENTERED VIA STARTING ADDRESS 240 

j WILL EXERCISE ALL AVAILABLE SLAVES ON ALL AVAILABLE 

j DRIVES IN BOTH PE AND NRZ ACCORDING TO THE PRESELECTED 

{TEST PLAN. IF NR7 ONLY, PE TESTING WILL NOT BE ATTEMPTED 

************************************* 

{request 'auto cont 1 

{set address of entry 

{set size op entry 

{set upper limit 

{set lower limit 

{go get input 

{set drive 

jgo select hardware configuration 

{Type * *»****, , . ***• 

{type 'drive ctm03) ■■» ' 

{print drive 



ASEQ: 


TYPE 


MSG104 




MOV 


0ASEQCF.R5 




MOV 


02, Rl 




MOV 


#1. R2 




MOV 


^0, R3 




JSR 


PC.TTR 


ASEQO; 


CLR 


DVN 


ASEQ1: 


vJSR 


PC.HRDS 




TYPE 


.MSG101 




TYPE 


.MSG52A 




MOV 


DVN.R3 




TYPOCT 




TYPE 


.SPACE 




TYPE 


.MSG32 




MOV 


0UN1.RO 


1$: 


MOV 


(R0)»,R3 




BMI 


2* 




TYPOCT 




BR 


1* 


2*: 


JSR 


PC.AM0D1 




JSR 


PC.AM0D2 


ASEQ4: 


CMP 


07. DVN 




BEQ 


ASEQX 




INC 


DVN 




BR 


ASEQ1 


ASEQXs 


TST 


A5EQCF 




BNE 


ASfcQO 




JMP 


TEND 



{TYPE 
{POINT 



SLAVE 
TO START 



OF SLAVE. TABLE 



{PRINT SLAVE TABLE 

:D0 ALL 

I GO DO MODE 1CNRZ; 

{GO DO MODE 2(PE) 

{SEE IF DONE ALL DRIVES 

{IF SO; BR 

BUMP DRIVE NUMBER 

CONTINUE 

SEE If CONTINUOUS AUTO 

**B CONTINUE TESTING 



SEQ 



H 8 



cvunt.o 


IM03-rt 


it> ]{)?: 


[)R1 


MACYH 


30(1046) 


07 -MAR 


-84 14:21 


cztedf . 


Pit 07 MAR -84 


14; 04 










4Mb 
















4517 












j SUBROUTINE TO 5EL 


4516 
















4519 


02 1454 


005037 


005042 




HRDS: 


CLR 


REOTC 


4520 


021460 


012/7/ 


000040 


157032 




MOV 


440, 3CS 


4521 


021466 


013777 


000550 


157024 




MOV 


DVN.QCS 


4522 


021474 


005777 


157010 






TST 


SCI 


4523 


021500 


032777 


010000 


157012 




BIT 


oioooo, acs 


4524 


021506 


001403 








BEQ 


2$ 


4525 


021510 


005726 






1$: 


TST 


CSP)* 


4526 


021512 


000137 


021424 






JMP 


ASEQ4 


4 he? 7 


021516 


017 700 


157014 




2$: 


MOV 


SOT.RO 


4528 


021522 


042700 


002007 






BIC 


02007, RO 


4529 


021526 


022700 


140050 






CMP 


0140050, RO 


4550 


021532 


001366 








BNE 


1$ 


4531 


021534 


005000 








CLR 


RO 


4532 


021536 


012701 


000752 






MOV 


4UN1,R1 


4535 


021542 


005737 


003146 






TST 


CHNFLG 


4534 


021546 


001410 








BEQ 


3$ 


4535 


021550 


122737 


000006 


000041 




CMPB 


46,3041 


4536 


021556 


001004 








BNE 


3$ 


4537 


021560 


005737 


000550 






TST 


DVN 


4538 


021564 


001001 








BNE 


3$ 


4539 


021566 


005200 








INC 


RO 


4540 


021570 


010077 


156746 




3$: 


MOV 


RO.STC 


4541 


021574 


032777 


010000 


156720 




BIT 


410000, SOS 


4542 


021602 


001404 








BEQ 


4$ 


454 3 


021604 


062737 


000401 


005042 




ADD 


0401, REOTC 


454h 


021612 


010021 








MOV 


RO.CRn* 


4545 


021614 


005200 






4$: 


INC 


RO 


4546 


021616 


022700 


000010 






CMP 


410.R0 


454 7 


021622 


001362 








BNE 


3$ 


4548 


021624 


005737 


005042 




5$: 


TST 


REOTC 


4549 


021630 


001727 








BcQ 


11 


4550 


02163? 


012711 


177777 






MOV 


0-l,(Rl) 


4551 


021636 


000207 








RTS 


PC 
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SEQ 0098 



{CLEAR EOT UNIT CNTR 

jINIT 

j SET DRIVE 

{ACCESS DRIVE 

{TEST FOR NON-EXISTANT DRIVE 

j IF DRIVE AVAIL: BR 

jRESET STACK POINTER 

i GO SEE IF TRIED ALL DRIVES 

l**B GET CONTENTS OF DRIVE 1 tPE 

ihB CLEAR SPR AND SPEED BITS 

j**B BRANCH IF NOT TM03 MAGTAPE DRIVE 



REG 



{SET START 
{BRANCH IF 



OF SLAVE TABLE 
NOT IN CHAIN MODE 



{BRANCH IF NOT LOADED VIA TMDP 
{BRANCH IF NOT ORIVF 



{DO NOT 
{SELECT 
{SEE IF 
j IF NOT 



TEST SLAVE 
SLAVE 

SLAVE AVAIL 
BR 







FOR TE5UM0L ) 



{INCREMENT UNITS TO TL'JT COUNT 

jlOAD SLAVE C INTO SLAVE TABLE 
{STEP TO NEXT SLAVE 

{BRANCH If All SLAVE NOT DONE 



ANi 



{SEE IF FOUND 
5 IF NOT; HR 
j TERMINATE SLAVE 
{RETURN TO SEQ 



.AVE-' S 



TABIE 



cztedeo 


tmo3-tho ru:: 


DR1 


MACY11 


30( 1046) 


07 -MAR 


-84 14i21 


CZTEDE. 


PI I 07-MAR-84 


14:04 










4553 
4554 
4555 

455b 












{SUBROUTINE TO SALE 


021640 


005037 


000662 




AM0D1: 


CLR 


BLCNTR 


455 ' 


021644 


012701 


000752 






MOV 


4UN1.R1 


4558 


021650 


052721 


001700 




li: 


BIS 


0l7OO t (Rl)* 


4559 


021654 


022711 


177777 






CMP 


*-l.(Rl) 


4 5b0 


021660 


001373 








BNE 


li 


4561 


021662 


004737 


005056 






JSR 


PC.RWNDA 


4 562 


021666 


012737 


000006 


000744 




MOV 


06.A8LCNT 


4563 


021674 


01373 * 


000560 


00055b 




MOV 


BUFMAX,FMCN 


4564 


021702 


012737 


G00100 


000554 




MOV 


4100, RCNT 


4565 


021710 


012/37 


000001 


000566 




MOV 


*1.PA T RN 


4 566 


021716 


005037 


000572 






CLR 


TME.X 


456.* 


021722 


0050 S 7 


000576 






CLR 


INTRF 


45t>8 


021726 


004 737 


003464 






JSR 


PC.STAUTO 


4 569 


021732 


(.12737 


000010 


000566 




MOV 


010.PATRN 


4570 


021740 


004 .'3 ? 


003464 






JSR 


PC, ST AUTO 


4571 


021744 


012737 


000014 


000566 




MOV 


414.PATRN 


45 72 


021752 


004737 


003464 






JSR 


PC.STAUTO 


4575 


021756 


012737 


177777 


000566 


3$t 


MOV 


O-l.PATRN 


4574 


021764 


004 737 


003464 






JSR 


PC.STAUTO 


4575 


021770 


000207 








RTS 


PC 
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SfcQ 0099 



{ASSURE BLOCK COUNTER IS 
{GET START OF" SLAVE TABLE 
I SET ALL SLAVE TO NR/ , NORM, 000 
{LOOP UNTIL REACED f NO OF TABLF 

{GO REWIND ALL AVAIL SLAVES 

{SET NUMBER OF BLOCKS FOR MODE 1 

{SET FC ■ MAX BUFFER SIZE 

{SET REC CNTR - 100 

{SELECT PATTERN 1 

; ASSURE NO TMK 

{ASSURE NORMAL READ 

{GO DO AUTO MODE 1 

{SELECT PATTERN 10 

{GO 00 PATTERN 10 

{SELECT PATTERN 14 

{SELECT AUTO RANDOM DATA 

{RETURN TO SEQ 



v \ 



w 
I, ) 



C/M Dt.O 


1M03-TI 


lb n.v 


OR I 


MAC til 


CZTFDE. 


r>Ll 07 -MAR -84 


14:04 




45 7" 
45/8 










45.'^ 










4580 


021/72 


005037 


0006^2 




4581 


0217/6 


012/01 


000752 




4582 


02300?. 


042711 


001700 




4583 


02200b 


052721 


002300 




4584 


022012 


022711 


177777 




4585 


022016 


001371 






4586 


022020 


004 737 


005056 




4587 


022024 


012737 


000006 


000744 


4588 


022032 


013/37 


000560 


000556 


458'* 


022040 


012737 


000100 


000554 


4590 


022046 


01273? 


000010 


000566 


4591 


022054 


004737 


003464 




4592 


0P.2060 


012737 


000014 


000566 


459? 


022066 


004 737 


003464 




4594 


0220 72 


012737 


000015 


000566 


4595 


022100 


004 73 7 


003464 




4596 


022104 


012737 


177777 


000 744 


4597 


022112 


012737 


177777 


000566 


4598 


022120 


004 737 


003464 




4599 


022124 


000207 






4*00 










4601 











30(1046) 


07 -MAR 84 i4 j 21 P 




{SUBROUTINE TO SELEC 


AM0D2: 


Cl.R 


BLCNTR 




MOV 


0UN1,R1 


1$; 


BIC 


41700, (Rl) 




BIS 


02300, (RH* 




CMP 


0-1, (Rl) 




BNE 


1* 




JSR 


PC.RUNDA 




MOV 


06.ABLCNT 




MOV 


BUFMAX.FMCNT 




MOV 


0100, RCNT 




MOV 


01O.PATRN 




JSR 


PC.STAUTO 




MOV 


014.PATRN 




JSR 


PC.STAUTO 




MOV 


015.PATRN 




JSR 


PC.STAUTO 




MOV 


0-1.ABLCNT 




MOV 


l.PATRN 




JSR 


PC.STAUTO 


3$: 


RTS 


PC 
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SEQ 0100 



PE AUTO TFST MODE ♦•♦♦** *♦* + 

{CLEAR BLOCK CNTR 

{SET START OK SLAVE TABLE 

jCLEAR NRZ 

{SET TO PE NORM, ODD 

{LOOP UNTIL END OF TABLE 

{REWIND ALL SLAVES 

{SET AUTO BLOCK COUNT 
{SET FC * MAX BUFFER SIZE 
{SET REC CNTR TO 100 
{SELECT PATTERN 10 
{GO DO AUTO SEQ 
{SELECT PATTERN 14 

{SELECT PATTERN 15 

{FORCE TO END OF TAPF 
{SELECT AUTO RANDOM DATA 

{RETURN TO SEQ 



c/n ot o 


IM03 n 


lb U.'/: 


PR] 


C/Tt Ok . 


PI I 0/MAR 84 


14:04 


4b03 








4b04 








4 b 05 








4t>0t> 








4t»o: 








4600 








4t>09 








4ol0 








4t.ll 








4b 12 








461? 








4c* 14 








46 1 5 








461b 








461.' 








4ol8 








4b 19 


022126 


000004 


025154 


4620 


022132 


013703 


000550 


4621 


022136 


104400 




4652 


022140 


000004 


024600 


46c?? 


022144 


013703 


000552 


4624 


022150 


042703 


177770 


4625 


022154 


104400 




4626 


022156 


000004 


023722 


4627 


022162 


013703 


000552 


4628 


022166 


000303 




4629 


022170 


042703 


177770 


4650 


022174 


104400 




4631 


022176 


000004 


0252 71 


4632 


022202 


005003 




4633 


022204 


032737 


000010 


4634 


022212 


001401 




4635 


022214 


005203 




4b36 


022216 


104400 




463 7 


022220 


000004 


025275 


4638 


022224 


013703 


000552 


4 639 


022230 


006003 




4640 


022232 


006003 




4641 


022234 


006003 




4642 


022236 


006003 




4643 


022240 


042703 


177760 


4644 


022244 


104400 




4645 


022246 


000004 


023765 


4646 


022252 


005737 


000566 


464 7 


02225b 


100003 




4648 


022260 


000004 


024055 


4649 


022264 


000403 




4 b 50 


0->2266 


013703 


000566 


4651 


022272 


104400 




4652 


0222 /4 


000004 


024007 


4653 


022300 


013/03 


000662 


4654 


022304 


104400 




4655 


022306 


000004 


024015 


46 56 


022312 


010003 




465/ 


0^314 


03273" 7 


000010 


4658 


022322 


001416 
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SEQ 0101 



PAPRT 



000552 



P APR TO: 



PAPRTA 
PAPRTC 
PAPRTD 



J********************* *,*************+*********+*** + ** + 

{ERROR HEADER PRINT SUBROUTINE: 

,'THIS ROUTINE IS USED TO PRINT OUT A HEADER 
{WITH EACH ERROR MESSAGE, THE PRINT IS IN TWO 
;LINES AND CONTAINS THE FOLLOWING INFORMATION. 
{LINE 1: DRIVE NO. SLAVE NO. DENSITY PARITY FORMAT 
{LINE 2: CURRENT BLOCK NUMBER, RECORD NUMBER IN 
{WHICH THE ERROR OCCURED PLUS THE TOTAL NUMBER 
jOF RECORDS IN THIS BLOCK, THE RECORD SIZE (NUMBER 
{OF CHARACTERS), AND THE ERROR TYPE (READ, WRITE, SPACE 
{PLUS THE TAPE DIRECTION (FORWARD OR REVERSE). 
{ALL NUMBERS ARE IN OCTAL. 

;****************+***+**************** **************** 



ETC) 



000700 



TYPE.MSG52 

MOV DVN.R3 

TYP0C1 

TYPE.MSG32 

MOV U0ES.R3 

BIC 0177770. R3 

TYPOCT 

TYPE.MSG1 

MOV UDES.R3 

SWAB R3 

BIC 0177770, R3 

TYPOCT 

TYPE,MSG61 

CLR R3 

BIT 010.U0ES 

BEQ PAPRTO 

INC R3 

T1P0CT 

TYPE.MSG62 

MOV UDES.R3 

ROR R3 

ROR R3 

ROR R3 

ROR R *> 

BIC #1/7760, R3 

TYPOCT 

TYPE.MSG8 

TST PATRN 

BPL PAPRTC 

TrPE.MSGl .' 

BR PAPRTD 

MOV PATRN, R3 

TYPOCT 

TYPE.MSG13 

MOV BLCNTR.R3 

TYPOCT 

MPF.MSG14 

MOV R0.R3 

HII #10.M!Ci 

BEQ PAPRT i 



;TYPE 'DRIVE # « ' 

{PRINT DRIVE NUMBER 
{TYPE ' SLAVE # a ' 



{PRINT SLAVE NUMBER 
;TYPE DENSITY TAG ' *DE' 



{PRINT DENSITY 

;TYPE PARITY TAG ' *P» 



SET PARITt INDICATOR » EVEN 
PRINT PARI rt BIT STATE 
TYPE FORMAT TAG ' *F ' 



{POST ION FORMAT BITS 



{PRINT FORMAT 

{TiPE PATTfcRN # TAG ' *PAJRN' 

{BRANCH IF NOT RANDOM PATTERN 

{TYPE ' R* FOR RANDOM 



{PRINT PATRN NUMBER 
lTYP<-- BLOCK TAG ' ♦BN' 

{PRINT NUMBER 

j TiPE RhCORD i> TAG • *RN' 

s tit- I Of RECUHOS ifcFl TU PROCESS 

iStt H WRITE OPERATION 

I If SO j BR 



CJUDEO 


1M05 U 


lt>''1U/7 


DRT 


CZTEDE. 


Pll 07-MArt-84 


14:04 


4o59 


022324 


022737 


000030 


4660 


022332 


001412 




4661 


022334 


005737 


000570 


4662 


022340 


001407 




4663 


022342 


022737 


000032 


4664 


022350 


001007 




4665 


022352 


005737 


000720 


4666 


022356 


001404 




466 7 


022360 


013703 


000554 


4668 


022364 


160003 




4669 


022366 


005203 




4d70 


022370 


104400 




4671 


022372 


000004 


023720 


467.? 


022376 


013703 


000554 


4673 


022402 


104400 




46/4 


022404 


000004 


023760 


46 >5 


022410 


013703 


000556 


4676 


022414 


005403 




4677 


022416 


104400 




4678 


022420 


012737 


000001 


46 79 


022426 


000207 




4680 









I 8 
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000/00 CMP #30»MTC1 

BEQ PAPRTi 

TST RDCMD 

BF.Q PAPRTI 

000700 CMP 032.MTC1 

BNE PAPRT3 

TST RTYFL 

BEQ PAPRT3 

PAPHT1: MOV RCNT.R3 

PAPRTY: SUB R0.R3 

INC R3 
PAPRT3: TYPOCT 

TYPE, DASH 

MOV RCNT.R3 

TYPOCT 

TYPE.MSG7 



000672 



MOV 

NEG 

TYPOCT 

MOV 

RTS 



FMCNT.R3 
R3 

fll.HDRFL 
PC 



SEQ 0102 



j BRANCH IF SPACE FORWARD 

I BRANCH IF READ FORWARD 

{BRANCH IF NOT SPACE REVERSE 

{BRANCH IF NOT RETRYING 

GET # OF RECORDS TO PROCESS 

FORM RECORD NUMBER 

►♦MP ADJUST RECORD NUMBER IN FORWARD DIRECTION 
PRINT RECORD NUMBER 
{TYPE A DASH ' -» 



PRINT RECORD COUNT 
TYPE RECORD SIZE TAG 
GET CHARACTER COUNT 

{FORM TWO'S COMPLEMENT 

{PRINT RECORD SIZE 

{SET HEADER FLAG 

{RETURN 



+RS 



1) 
1) 



4/17 

n 

n 
n 
i) 
n 
i) 
i ) 
i) 
i) 



000636 
000634 
000636 

000636 



c/tedeo iM03-TLi6/ru/;' drt 

CZTEDH.PU 07-MAR-84 14:04 



4b82 
4683 
4684 
4685 
4686 
468/ 
4688 
4689 
4690 
4691 
4692 
4o93 
4694 
4695 
4696 
469/ 
4698 
4699 
4700 
4701 
4 702 
4703 
4704 
4 705 
4 706 
4707 
4 708 
4 709 
4710 
4711 
4712 
4713 
4/14 
4/15 
4/16 

n 



022430 
0224 36 
022444 
022450 
022452 
022456 
022460 



022462 
022470 
022472 
022476 
022502 
022506 
022510 
022514 
022520 
022524 
022530 
022534 
022540 
022544 



022546 
022550 
022552 
022554 
022556 
022560 
022562 
022566 



022570 
022574 
022576 



022604 
022606 
022610 



063737 
063737 
023701 
101367 
02023/ 
101364 
00020 7 



022737 
001025 
004737 
000004 
017703 
104400 
000004 
013705 
012701 
012702 
012703 
004737 
004737 
000207 



010546 
010446 
010^46 
010246 
010146 
010046 
016646 
00020 7 



012666 

012600 
012601 
012602 
012603 
012604 
012605 
000207 



000014 



000014 
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SEQ 0103 



{RANDOM NUMBER GENERATOR SUBROUTINE: 

THIS SUBROUTINE IS USED TO GENERATE THE RANDOM 

NUMBERS REQUIRED FOR USE AS RANDOM DATA, 

RECORD COUNT, AND CHARACTER COUNT. 

■ i + ** *** + * + + + * + * + ***** + ** + + * + + + + + + ♦.* + ♦* + + # + * + + + * + + + * + 



000634 
000636 



RANG ; 



ADD 


RANSAV.RANBAS 




ADH 


RANBAS.RANSAV 


jGET NEW NUMBER 


CMP 


RANSAV.R1 


{SEE IF NUMBER TOO BIG 


BHI 


RANG 


j IF SO: BR 


CMP 


R2,RANSAV 


j GEE IF NUMBER TOO SMALL 


BHI 


RANG 


{IF SO: BR 


RTS 


PC 


jEXIT 



{SUBROUTINE TO GET NEW SOFTWARE SUR 



000176 000616 GTSWR 

022546 
023700 
156110 

023710 

000616 
000007 
177777 
000000 
022612 
022570 

1$: 



CMP 0SWREG.SWR 

BNE 1$ 

JSR PC,. SAVE 

TYPE,$MSWR 

MOV SSWR.R3 

TYPOCT 

TYPE,$MNEW 

MOV SWR.R5 

MOV 07, Rl 

MOV VI 77777 ,R2 

MOV 00, R 3 

JSR PC.TTR 

JSR PC,, RESTORE 

RTS PC 



{BRANCH IK SOFTWARE SUR 

{NOT INVOKED 

{SAVE REGISTERS ON THE STACK 

{GET CURRENT SWR 

{REQUEST NEW SWR SETTING 
} TTR ROUTINE RETURNS VALUE TO (R5) 
{LIMIT RESPONSE TO 7 CHARS 
{BETWEEN AND 177777 

{GET RESPONSE 
{RESTORE REGISTERS 
{RETURN 



5 {ROUTINE TO SAVE REGISTERS ON THE STACK 

.SAVE: MOV #5 , ( SP ) 

MOV *4,-C$P) 

MOV *3,-(SP) 

MOV *2,-(SP) 

MOV *1, (SP) 

MOV #0. (SP) 

MOV 14(SP),-CSP) 

RTS PC 



R5 IS 


SAVED 


AT 


12(SP) 


R4 IS 


SAVED 


AT 


10CSP) 


R3 IS 


SAVED 


AT 


6CSP) 


R2 IS 


SAVED 


AT 


4(SP) 


Rl IS 


SAVED 


AT 


2CSP) 


RO IS 


SAVED 


AT 


(SP) 


PUSH f 


RETURN 


PC 


ON THE 



STACK 



RETURN TO CALLER 



{{ROUTINE TO RESTORF REGISTERS SAVED ON THE STACK 



RESTORE: MOV 
MOV 
MOV 
MOV 
MOV 
MUV 
MOV 
RIS 



( 
( 
( 
C 
( 
( 
( 
PC 



SP) 
SP) 
SP) 
SP) 
SP) 
SP) 
SP) 



,14( 

.*o 
>l 

>2 
>3 
,«4 
,*5 



iP) 



{{S IE RETURN PC ON STACK 



5 {RETURN 



CZTLDEO 1M03 
CZTEDE.P11 



4/19 
4 720 

4/21 

4 7?.2 
4 723 
4 724 
4 725 
4/26 
727 

729 

730 
731 
4 732 
4733 
4 734 
4735 
4 736 
4737 
4 738 
4 739 
4 740 
4741 
4 742 
4743 
4 744 
4745 
4 746 
4 74 7 
4748 
4749 
4 750 
4751 
4 752 
4 753 
4 754 
4 755 
4 756 
4757 
4758 
4759 
4 760 
4 '61 
4 762 
4/63 
4764 
4 765 
4 766 
4767 
4 768 
4 769 
4 7 70 
4/71 
4 7 72 
4 7 7 7 > 
4 7 74 



n:.i6/ru// drt 

07 -MAR -84 14:04 



MACY11 30(1046) 07-MAR-84 14:21 



N8 

PAGE 66 



SEQ 0104 



022612 
022614 
022616 
022622 
022624 
022630 
022636 
022640 
022642 
022646 
022654 
022656 
022662 
022664 
022666 
022674 
0226 76 
022702 
022704 
022712 
022714 
022716 
022720 
022722 
022724 
022730 
022732 
022734 
022742 
022744 
022752 
022754 
022760 
022762 
022 764 
022 /6o 
022774 
023000 
023002 



010146 
011601 
005037 
00^00 
004 7$: 
12273/ 
001003 
000005 
000137 
122737 
001004 
005737 
001455 
00044 7 
122737 
001003 
000004 
000744 
122737 
001010 
000241 
006000 
006200 
006200 
000004 
005201 
000734 
122737 
101027 
122737 
101423 
005237 
006300 
006300 
006300 
042737 
053700 
005301 
001310 



000652 

023036 
000003 



000200 
000015 

000652 



000025 
024355 
000177 



000650 



TTR 
10$ 



1$: 



000650 11$ 



000650 2$: 



000650 21$ 



026312 

000060 
000070 
000652 



17 "'770 
000650 



000650 3* 

000650 4$ 

5$ 

000650 



• ************************ ,% ************++*+***++*++***+ 
jTTY ENTRY SUBROUTINE: 

THIS SUBROUTINE IS USED BY THE TEST CONDITION 

ENTRY ROUTINE TO READ THE RESPONSE ENTERED 
i AT THE TTY AND CHECK THEM FOR LEGALITY AND 

LIMITS. ALL RESPONSE MUST BE TYPED IN OCTAL 

(0-7) AND MUST FALL WITHIN THE LIMITS SET BY 

THE CALLING ROUTINE. 
{IF AN ENTRY IS ILLEGAL OR OUTSIDE THE LIMITS, 

A QUESTION MARK IS TYPED (?) AND THE RESPONSE 

MAY BE REENTERED. 

ENTRIES MAY NOT EXCEED SIX (6) CHARACTERS AND 

MAT BE TERMINATED AT LESS THAN SIX BY TYPING A 

CARRIAGE RETURN 

* + + *************************■********** + *** + ********** 



MOV R1,-(SP) 

MOV (SP),R 1 

CLR TEMPI 

CLR RO 

vJSR PC, T TIN 

CMPB #3, TIB 

BNE 11$ 

RESET 

JMP 3*200 

CMPB #15, TIB 

BNE 2$ 

TST TEMPI 

BEQ 9$ 

BR 6$ 

CMPB 025, TIB 

BNE 21$ 

TYPE,MSG28 

BR 10$ 

CMPB #177, TIB 

ONE 3$ 

CLC 

ROR RO 

ASR RO 

ASR RO 

TYPE.MSG118 

INC HI 

BR 1$ 

CMPB #60, TIB 

BHI UNER 

CMPB */0,!IB 

Bl.OS TINER 

INC TEMPI 

ASl. RO 

ASL RO 

ASt RO 

B.IC *l/7//0,TIB 

BIS TIB 4 RQ 

DEC HI 

BNE 1$ 



:SAVE CHAR COUNT 

{RESTORE CHAR COUNT (FOR rU) 

{CLEAR FIRST CHARACTER FLAG 

;G0 READ CHARACTER 
{BRANCH IF NOT tC 



: RESTART AT 20U 
{SEE IF CR 

{IF NOT: BR 

jSEE IF FIRST CHARACTER 

{IF SO: BR 

{ELSE GO LOAD VALUE 

{BRANCH IF NOT CONTROL U 

{TYPE <CR><LF> 

{BRANCH IF NOT '9UB0UT' 

{REMOVE LAST CHARACTER 



TYPE ' V 

DEC CHAR RECEIVED COUNT 
GET NEXT CHARACTER 
{SEE IF CHAR IS LESS THAN 

JEE IF CHAR IS GREATER THAN 7 

SET FIRST CHARACTER FLAG 

SHIFT 3 LEFT 

STRIP ASCII 
LOAD CHARACTER 
SEE. U DONE 
IF NOT: BR 



C/H-.Ol 


TM05 H 16 Hi,*.' 


DMT 




NACU1 30(1046) 


0/ 


MAR 


-84 14 { 2l PAGfc 


CJUD* . 


Pll Or MAR 84 


14 


t04 










4 * ;s 


023004 


020002 






Mi 


CMP 




R0.R2 


4?> 


023006 


ioioos 








BHi 




T1NER 


4 .' .' ; 


025010 


020300 






M. 


CMP 




R3.R0 


4 V8 


023012 


101003 








BHI 




UNER 


4," *^ 


023014 


01001S 






HJ: 


MOV 




R0.CR5) 


4'tfO 


J 30 It 


OOS/26 






lit 


1ST 




(SP)» 


4. '81 

4 :a2 

4/85 


023020 


00020? 








RTS 




PC 


0J30.\? 


000004 


02 


S046 


TINER; 


tipe 


.0MSG4 3 


4 *84 


023026 


00^*26 








TST 




CSP)* 


4 *8 f » 


023030 


l62.*16 


000020 




SUB 




020,(SP) 


4 *8b 


023034 


OOOSO? 








RTS 




PC 



66 1 

I SEE If EXCEEDED MAXIMUM LIMIT 

I SEE IE BELOW MINIMUM t IMIT 

j LOAD VALUE 

l POP CHAR COUNT Oh'F STACK 

lEXIT 

1 type: ■ ?• 

,pop char count oft '.'jack 

i hi set sp to start of value routine 

iRLDQ VALUE ENTRi 



SfcO 0105 



C/TIOIO 1M05 



U H> It';.' DH1 
0/ MAR -84 14 5 04 
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■'88 
.*8 l > 
MO 
Ml 

M2 

M3 

M4 
795 

4796 

4M; 

4 798 
4 799 

4600 
4801 
480,: 
4805 
4804 
4 80S 
4806 
4807 
4808 
4809 
4810 
4811 
481? 
4813 
4814 
4815 
481e 
4017 
4818 
4819 
4820 
4821 
4 822 
482? 
4824 
482 c > 
4 826 
4 82 * 
4828 



025056 
025042 
02504b 
023050 
023056 
023064 
025072 
0250 74 
023100 
023102 
023106 



025110 
023112 
023114 
025120 
023126 
025132 
023134 
023140 
023142 
023146 

023150 
023156 
023162 
023166 
023172 
023176 
02320C 
023202 
023210 
023214 
023216 
023220 

023222 



0052 77 

105777 
100375 

017737 
042737 
022737 
001003 
000004 
000402 
000004 
000207 



010446 
010346 
017604 
062 766 
111437 
001431 
122724 
001403 
004 757 
00076 7 

112737 
004757 
012703 
005057 
004 73 7 
005303 
0013 72 
112737 
004 737 
000 744 
012603 
012604 
000002 



155556 
155552 

155546 

177600 
000015 

024 355 

000650 



000004 
000002 
000646 

000045 

023224 



000015 
025224 
000006 
000646 
023224 



000012 
023324 



ShQ 0106 



TTINs 



000650 
000650 
000650 



000004 



St: 
3*: 



TTOUT 



10$: 



000646 1$; 

000646 

3$: 



jTTn RFAD SUBROUTINE********** 



INC BTKS 

TSTH BTKS 

DPI. 1 1 

MOV BTKB.TIB 

BIC 0177600.TIB 

CMP 015, TIB 

BNE 21 

TYPE,MSG28 

BR 3$ 

TiPE.TIB 

RTS PC 



iSTRIP PARITr BIT 
jBRANCH If NUT <CR> 

i ItPE ' <CR><'i.r> 

jECHO CHARACTER 



jTTY OUTPUT SUBROUTINE************ 



HOV 

MOV 

MOV 

ADD 

MOVB 

BEO 

CMPB 

BFQ 

JSR 

BR 

MOVB 

JSR 

MOV 

CI R 

JSR 

DEC 

BNfe 

MOVB 

JSR 

BR 

MOV 

MOV 

RTI 



R4, (SP) 
R3, (SP) 
B4(SP),R4 
02.4CSP) 
CR4),T0B 

045, (R4)* 

II 

PC , TOG 
10$ 

015. TOO 

PC, TOG 

06, R3 

TOB 

PC, TOG 

R* 

2$ 

012, TOB 

PC, TOG 

10$ 

( SP)» ,R< 

(SP)»,R4 



I SAVE R4 ON THE STACK 

j GET ADDRESS OF MESSAGE. TO TrPF 

j ADJUST RETURN PC 

I GET A CHARACTER 

{AND BRANCH IF F.ND Of MSG 

j BRANCH IF' CRU CHARACTER (K) 

lECHC CHARACTER 



1 00 Fit tFRS 

(Rt-STDRI REGISTERS 
iHfcTURN 

















l) r ) 




C-Mt.Ot.O 


mo3 n a*- iu.*; 


DM! 


MACU1 


30( 1046) 


0/ MAR 


84 I4« t U PAGE 


6fl 


C/TlDt \ 


Pll 0? MAR 84 


14; 04 












4850 


023224 


1057/7 


155370 




TOG: 


TSTB 


BTKS 


jSEE IF INPUT AT KEYBOARD 


4851 


0^5250 


100024 








BPL 


3* 


I IF SO, THEN 


4852 


023232 


117737 


155364 


000751 




MQVB 


8TKB t *CNTRLS»l 


j MOVE CHARACTER AND 


4855 


023240 


142737 


000200 


000/51 




BICR 


©200,ICNTRl.S»l 


iMASK OFF PARITY BIT. 


4854 


023246 


122737 


000023 


000751 




CMPB 


023,ICNTRLS*1 


I SEE IF CHARACTER IS XOFF 


4855 


023254 


001004 








BNE 


?A 


\IV XOFF. THEN 


4856 


023256 


112737 


0003 77 


000/50 




MOVB 


0377,*CNTRLS 


{SET XOFF FLAG 


485? 


023264 


000757 








BR 


TOG 




4858 


023266 


122737 


000021 


000751 


cMj 


CMPB 


021,ICNTRLS»1 


jSEE IF CHARACTER IS XON 


483<* 


023274 


001002 








BNE 


5$ 


l IF SO THEN 


4840 


023276 


105037 


000 750 






CLRB 


ICNTRl.S 


1 CLEAR XOFF FLAG 


4841 


023302 


10573/ 


000/50 




3$: 


TSTB 


JCNTRLS 


j SEE IF IN XOFF MODE 


4842 


023306 


100746 








BMI 


rot; 


j IF NOT THEN 


484 5 


023310 


1057/7 


155310 






TSTB 


QTPS 


I CHECK IF PRINTER READr 


4844 


023314 


100543 








BPL 


TOG 


{ 


484.S 


02331b 


113777 


000646 


155302 




MOVB 


T0B.3TPB 




484<> 


023324 


000207 








RTS 


PC 


{RETURN 


4847 



















SfcQ 0107 



cznnro 


1N03 U lt>. 1U 7 7 


0R1 


CZTEDf, 


Pit 07 -MAR -84 


14; 04 


4849 








4850 








4851 


023326 


005037 


023502 


485c? 


023332 


010304 




4853 


023334 


001003 




4854 


023336 


000004 


026537 


4855 


023342 


000434 




4856 


023344 


100004 




485? 


023346 


012704 


000001 


4858 


023352 


004 73 7 


023442 


4859 


023356 


006004 




4060 


023360 


006004 




4361 


023362 


006004 




4862 


023364 


006004 




4865 


023366 


000304 




4864 


023370 


004737 


023442 


4865 


023374 


006004 




4866 


023376 


000304 




4867 


023400 


004 737 


023442 


4868 


023404 


006104 




4869 


023406 


006104 




4870 


023410 


000304 




4871 


023412 


004 737 


023442 


4872 


023416 


006004 




4873 


023420 


006004 




4874 


023422 


006004 




4875 


023424 


004 73 7 


023442 


4876 


023430 


004737 


023442 


48 7 7 


023434 


000004 


026535 


4878 


023440 


000002 




4879 








4880 


023442 


042704 


177770 


4881 


023446 


001003 




4882 


023450 


005737 


023502 


4883 


023454 


001410 




4884 


023456 


005237 


023502 


4885 


023462 


052 704 


000260 


4886 


023466 


010437 


000646 


4887 


0234 72 


004737 


023224 


4888 


0234/6 


010304 




4889 


02 3500 


00020 7 




4890 


023502 


000000 




4891 








489? 








4895 








4894 








4895 


023504 


012704 


000010 


4896 


023510 


110346 




4897 


02 3512 


106316 




4898 


023514 


103003 




4899 


023516 


000004 


02654 1 


4900 


023522 


000402 




4901 


023524 


000004 


026537 


4902 


C23530 


005304 




4 '*".)*, 


023532 


00136.' 




4904 


023534 


005 726 





E-9 
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SEQ 0108 



{OCTAL OUTPUT SUBROUTINE************ 



OCTP: 


CLR 


on. 




MOV 


R3.R4 




BNE 


LI 




TYPE. 


DIGITO 




BR 


4$ 


1$: 


BPL 


3$ 




MUV 


01, R4 




JSR 


PC, OCTPG 


3$; 


ROR 


R4 




ROR 


R4 




ROR 


R4 




ROR 


R4 




SUA3 


R4 




JSR 


PC, OCTPG 




ROR 


R4 




SWAB 


R4 




JSR 


PC, OCTPG 




ROL 


R4 




ROL 


R4 




SWAB 


R4 




JSR 


PC, OCTPG 




ROR 


R4 




ROR 


R4 




ROR 


R4 




JSR 


PC, OCTPG 




JSR 


PC, OCTPG 


4$: 


TYPE, 
RTI 


SPACE 


OCTPG: 


BIC 


0177770, R4 




BNF 


1$ 




TST 


OFL 




BEQ 


2* 


IS: 


INC 


OFL 




BIS 


0260, R4 




MOV 


R4 , TOB 




JSR 


PC. TOG 


2$: 


MOV 


R3.R4 




RTS 


PC 


OKI. : 








j CLEAR FLAG FOR LEADING ZERO 
j SEE IF NUMBER IS ZERO 
jIF NOT ZERO: BR 

{SPACE AND EXIT 
(BRANCH IF MSD IS A '0' 

{PRINT 1 



{POSITION DIGIT 



{PRINT DIGIT 2 



{PRINT DIGIT 3 



{PRINT DIGIT 4 



{PRINT DIGIT 5 
{PRINT DIGIT 6 
iTlPE A SPACE 
{EXIT 



{FIRST CHAR FLAG 



{DATA CHARACTER OUTPUT SUBROUTINE************ 



DOUTj 


MOV 


«'?10,R4 




MOVB 


R3, -(SP) 


1*: 


ASl.H 


C SP ) 




BCC 


2$ 




tYPt- 


DIGIT 1 




BR 


M 


2$: 


TtPE 


DIGITO 


3$: 


oec 


R4 




BNt 


1* 




TST 


(SP)* 



jSET NUMBER TO PRINT 
{GET CHAR TO OUTPUT 
(BRANCH IF BIT IS A ZERO 



jPOP STACK 



CMt-.oto tmo5 rnt,rii:; drt 



MACUl 50(1046) 07 MAR-84 14:21 



F9 

PAGE 69-1 



CZTEDE. 


Pll 07 -MAR 84 


14;04 


4905 


023536 


000207 




4906 








490? 


023540 


113703 


00065? 


4908 


023544 


004 73 7 


023504 


4^09 


023550 


013703 


000656 


4910 


023554 


004737 


023504 


4911 


023560 


000207 




4912 








4913 








4914 








4915 


023562 


017 703 


154 752 


4916 


023566 


000004 


023775 


491? 


023572 


010304 




4918 


023574 


000304 




4919 


023576 


006004 




4920 


023600 


006004 




4921 


023602 


006004 




4922 


023604 


006004 




4923 


023606 


004 73 7 


023654 


4924 


023612 


010304 




4925 


023614 


000304 




4926 


023616 


004737 


023654 


492? 


023622 


010304 




4928 


023624 


006004 




4929 


023626 


006004 




4930 


023630 


006004 




4931 


023632 


006004 




4932 


023634 


004 737 


023654 


4933 


023640 


010304 




4934 


023642 


004737 


023654 


4935 


023646 


000004 


024355 


4936 


023652 


000207 




4937 


023654 


012737 


000260 


4938 


023662 


042704 


177760 


4939 


023666 


050437 


000646 


4940 


0236 72 


004737 


023224 


4941 


023676 


000207 




4942 









DOUTDj 



SNPT 



000646 SNPG 



SEQ 0109 



RTS 



PC 



MOVB 


TEMP3*1,R3 




JSR 


PC,DOU T 




MOV 


TEMP3.R3 




JSR 


PC.DOUT 




RTS 


PC 




{TU16 


SERIAL NUMBER 


PRINT SUBROUTINE******* 


MOV 


SSN.R3 


(GET CONTENTS OF SE 


type, 


MSG9 


{TYPE SN TAG 


MOV 


R3.R4 




SWAB 


R4 




ROR 


R4 




ROR 


R4 




ROR 


R4 




ROR 


R4 




JSR 


PC, SNPG 


{PRINT FIRST DIGIT 


MOV 


R3.R4 




SWAB 


R4 




JSR 


PC. SNPG 


{PRINT SECOND DIGIT 


MOV 


R3.R4 




ROR 


R4 




ROR 


R4 




ROR 


R4 




ROR 


R4 




JSR 


PC, SNPG 


jPRINT THIRD DIGIT 


MOV 


R3.R4 




JSR 


PC, SNPG 


{PRINT FOURTH DIGIT 


TYPE. 


MSG28 


{TYPE <CR><LF> 


RTS 


PC 


{EXIT 


MOV 


4260. T OB 


{SET NUMBER BASE 


BIC 


4177760, R4 


{MASK NUMBER 


BIS 


R4.T0B 


{BUILD DIGIT 


JSR 


PC. TOG 


{GO TiPE 


RTS 


PC 


{RETURN 



CZTEDEO TM03 

CZTEDE.P11 



Tt.i6 ru;; dri 

07 -MAR -84 14:04 



HACU1 30(1046) 07 MAR 34 14:21 



G9 

PAGE. 70 



SfcQ OLIO 



4944 
4945 
4946 
494 7 

4948 

4949 

4950 
4951 
4952 
4953 
4954 
4955 
4956 
4957 

4958 
4959 
4960 

4961 
4962 



4963 
4964 
4965 

4966 



4967 



4968 

4969 
4970 
4971 
4972 
4973 
4974 
4975 
4976 
497 7 
4978 
4979 
4980 
4981 



4982 



023700 
023706 
023710 
023716 
023720 
023722 
023727 
023734 
023741 
023746 
023753 
023760 
023765 
023772 
023775 
024002 
024007 
024014 
024015 
024022 
024030 
024036 
024044 
024052 
024055 
024060 
024066 
024070 
024076 
024104 
024112 
024U3 
024120 
024126 
024134 
024137 
024144 
024145 
024152 
024157 
024164 
024172 
024177 
024204 
024211 
024216 
024223 
024230 
024235 
024242 
024250 
024256 
024261 



051445 
000040 
047040 
000040 
000055 
042052 

045 
041045 

045 
053452 

052 
051052 

052 
020116 

123 
051452 

045 

000 

052 
020045 
020040 
042101 
051117 
043040 

040 
042440 
000040 
047111 
040510 
042522 

000 

045 
040507 
035124 
022524 

045 

000 

045 
041045 

045 
041445 
042045 

045 
040445 

045 
042045 

045 
042045 

045 
04^045 
042524 
022524 

045 



051127 
053505 



020105 
03550 7 
020073 
047103 
020105 
042522 
020123 
040520 
000 
035116 
020105 
041052 

047122 
020040 
020040 
051040 
022504 
000 
000122 
052117 

042524 
043516 
042101 

046111 
020114 
044040 
000 
051503 

041527 
020101 
041506 
031123 
020123 
051105 
020123 
045503 
020102 
051115 
020124 
041524 
020117 
051122 
000 
046123 



036440 
036440 



000 
000040 

000 
000040 

000 
000040 

000 
051124 

000040 

000 

020116 

000040 
020040 
041040 
041505 
00C045 



021440 

041522 
020105 
020077 

042514 
047502 
046101 



000040 

000 
000040 
000040 

000 
000040 

000 
000040 

000 
000040 

000 
000040 
047111 
050125 



$MSWR 

$MNEW 

DASH 
MSG1 
MSG2 
MSG3 
MSG4 
MSG5 
MSG6 
MSG7 
MSG8 

MSG9: 
MSG10 
MSG13 



MSG14 
MSG15 



MSG16t 
M5G17j 
M5G20; 



020061 MSG23: 



MSG23A 

MSG23B 

M5G23C 

MSG23D 

M5G23E 

MSG23F 

MSG23G 

MSG23H 

MSG23I 

MSG23J 

M5G23K 

M5G23L 

MSG24: 



{ERROR MESSAGES*********** 
.ASCIZ /*SWR - / 
.ASCIZ / NEW - / 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 



.ASCIZ 
.ASCIZ 
.ASCIZ 



/-/ 

/*DE / 
/KG i / 
/*B{ / 
/*CN / 
/♦WE / 
/*Rf. / 
/*RS / 
/*PATRN / 

/SN: / 
/*SE / 
/**BN / 

/*Rn / 
/* 



/ FV 
/ R/ 
/ EOT * / 



BAD RECORD**/ 



MSG21: .ASCIZ /INTERCHANGE READ? / 



MSG22: .ASCIZ /^ILLEGAL BOT: HALT*. 



ASCIZ /KCS1 / 



ASCIZ 
ASCIZ 
ASCIZ 

ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCI/ 
ASCIZ 
ASCIZ 
ASCIZ 



/*WC / 

/*BA / 

/*>C / 

/*CS2 / 

/*DS 

/*Ert 

/*AS 

/*CK 

/*DB 

/*MR 

/*Dt 

/*TC 

/*N0 



INTERRUPT*/ 



053101 MSG25: .ASCIZ /*SLAVE UNSAH-TEST DISCONTINUED ON SLAVE* 



C/UfU 1M05 
C/TEDf.Pll 



n it- rii 

07 -MAR 



84 14:04 



l-N 

MAC Till 50(1046) 7 MAR 84 14:21 PAGE 70 1 



SfcQ 0111 



4983 
4984 

4^85 
498o 



498 



4988 



4^89 
4990 
4991 

4992 

4993 
4994 
4995 



024266 

024274 
024302 

024310 

024316 
024324 
024332 
024333 
024340 
024 344 
024352 
024355 
024 35? 
024364 
024372 
024400 
024406 
024414 
024422 
024430 
024431 
024436 
024444 
024452 
024460 
024466 
024474 
024502 
024510 
024513 
024520 
024526 
024534 
024542 
024550 
024556 
024564 
024572 
024600 
024606 
024613 
024620 
024626 
024634 
024640 
024646 
024654 
024660 
024666 
0246 74 
0246 76 
024/04 
024/12 
024 / 1 * 
024 720 
024726 



020105 
042506 
020124 
047117 
042105 
046123 
000 
045 
035123 
050045 
020072 
045 
045 
026463 
052057 
052501 
050505 
020105 
042105 
000 
045 
026463 
052057 
040504 
046105 
044514 
051505 
052132 
022451 
124 
041474 
020117 
04 7 1 1 1 
046101 
052521 
023040 
04 7524 
040524 
046123 
020043 
104 
054524 
040520 
036440 
042522 
041440 
036440 
044103 
052517 
000040 
040520 
020116 
000 
123 
020105 
02007 7 



04 7125 
052055 

044504 
044524 
047440 
053101 

051104 
000040 
041511 
000 
000 
052045 
042524 
033525 
04 7524 
042525 
041450 
030105 

052045 
042524 
033525 
040524 
040511 
054524 
020124 
042105 
000 
050131 
037122 
042524 
052101 
020114 
051505 
057040 
051040 
052122 
053101 
020075 
04 7105 
036440 
044522 
000040 
04 7503 
052517 
000040 
051101 
052116 

052124 

02004 3 

04/111 

040520 
000 



040523 
051505 
041523 
052516 
020116 
022505 

050117 

051513 



04 7515 
033061 
02006 7 
051440 
041516 
052132 
022451 

030115 
033061 
02006 7 
051040 
044502 
052040 
041450 
030105 

020105 
052040 
046522 
020105 
042522 
051524 
020103 
051505 
00004 5 
020105 
000 
044523 
000040 
054524 

042122 

052116 

041440 

36440 

051105 
0200 75 

04610/ 
051523 



MSG26; 

MSG27: 

MSG28: 
MSG30: 



.ASCIZ 

.ASCIZ 

.ASCI/ 
.ASCIZ 



/*DR0PS: / 

/•PICKS: / 

/*/ 

-**TM03-TE16/TU77 AUTO SEQUENCE ( C/TEDEO )* 



B 



MSG31: .ASCIZ • 1MTM03 ■ TF16/TU77 DATA Rhl.IABU.ITr TEST I CZTEDEO)*' ; ^B 



MSG31A} .ASCIZ /TtPE <CR> TO TERMINATE ALL REQUESTS £ *C TO RESTART*/ 



MSG32 
MSG33 
MSG34 
MSG35 

MSG36: 

MSG3 7; 
MSG38J 



.ASCIZ /SI AVE it « / 

.ASCIZ /DENSm « 

.ASCIZ /PARU* - ' 

.ASCIZ /RFCURD COUNT 

.ASCIZ /CHAR COUNT > 

.ASCIZ /PAT URN • 

.ASCIZ /SINGLE PASS 7 



c/um.o 


1M03 n- it,, tv.:: 


DR1 


MACU1 


30( 1046 


C/TEDE. 


Pit 7 -MAR 84 


14? 04 






4^96 


024 7 31 


103 


041522 


041440 


MSG39: 




024 736 


051117 


042522 


052103 






024744 


047511 


020116 


054450 






024 752 


051505 


0304 75 


04 7054 






024 760 


036517 


024460 


020077 






024 766 


000 








4997 


024 767 


045 


042445 


052116 


M5G40: 




024774 


051105 


051440 


040524 






025002 


046114 


022523 


042522 






025010 


042101 


036440 


000040 




4998 


025016 


051127 


052111 


020105 


MSG41r 




025024 


020075 


000 






4999 


025027 


124 


051125 


020116 


MSG42: 




025034 


051101 


052517 


042116 






025042 


036440 


000040 






5000 


025046 


037445 


000045 




MSG43: 


5001 


025052 


042445 


052116 


051105 


MSG44: 




025060 


054440 


055117 


046132 






025066 


020105 


052123 


046101 






025074 


020114 


020075 


000 




5002 


025101 


045 


051105 


020122 


MSG45 : 




025106 


046501 


020124 


000 




5003 


025113 


045 


047516 


020124 


MSG49: 




025120 


053101 


044501 


020114 






025126 


000 








5004 


025127 


045 


046111 


042514 


MSG50: 




025134 


040507 


020114 


051104 






025142 


053111 


020105 


054524 






025150 


042520 


000040 






5005 


025154 


022445 






MSC52: 


5006 


025156 


051104 


053111 


020105 


I1SG52A 




025164 


052050 


030115 


024463 






025172 


021440 


036440 


000040 




5007 


025200 


047506 


046522 


052101 


M5G53: 




025206 


036440 


000040 






5008 


025212 
025220 


053452 

000 


020105 


046524 


MSG54 ; 


5009 


025221 
025226 


052 
000115 


042523 


052040 


MSG55 : 


5010 


025230 


052040 


000115 




M5G56: 


5011 


025234 


04 7045 


04 7 1 1 7 


042455 


MSG57: 




025242 


044530 


052123 


051440 






025250 


040514 


042526 


000 




5012 


025255 

025262 


045 
000 


051103 


020103 


MSG58 : 


5013 


025263 
025270 


045 

000 


051114 


020103 


MSG59: 


5014 


025271 


052 


020120 


000 


MSG61 : 


5015 


025275 


052 


020106 


000 


MSG62: 


5016 


025301 


045 


04 7452 


044522 


MSG64 : 




025306 


04 4 507 


040516 


020114 






025314 


051105 


04 7522 


025122 






025522 


000 








501 / 


025 523 


045 


042522 


051124 


MSG65 • 




92?. -SsP 


035151 


000C40 






50 1 ft 


0V5354 


051452 


020105 


052122 


MSG66 s 



] '; 



.ASCI/ /CRC CORRECTION ( YES' 1 ,N0=0)? / 



SfcQ 0112 



.ASCI/ /CENTER STALLS*READ ■ / 

.ASCI/ /WRITE « / 
.ASCI/ /TURN AROUND * / 



ASCI/ /*?#/ 

ASCI/ /CENTER YO//LE STALL * / 



.ASCI/ /*ERR AMI / 
.ASCI/ /*N0T AVAIL / 

.ASCI/ /^ILLEGAL DRIVE T*PE / 



.ASCII /**/ 

.ASCI/ /DRIVE (TM03) ■ / 



.ASCI/ /FORMAT - / 

.ASCI/ /*WE TM/ 

.ASCI/ /*SF TM/ 

.ASCI/ / TM/ 

.ASCI/ /^NON -EXIST SLAVE/ 

.ASCI/ /*CRC / 

.ASCI/ '*i RC / 

.ASCI/ / +P / 

.ASCI/ /♦* / 

.ASCI/ /UNORIGINAL ERROR*/ 

.ASCI/ /rfRETRt; ' 

.ASCI/ /*SI HlHi / 



C/TEDFO TMO? 



C/TFDF, 


Pll 07-MAR-84 


14:04 








025342 


054522 


000040 






5019 


025346 
025354 


042452 
000 


040522 


042523 


MSG6 / : 


5020 


025355 


045 


042522 


042522 


MSG68: 




025362 


035126 


000040 






5021 


025366 


040524 


042520 


046440 


MSG69: 




025374 


051101 


037513 


000040 




502c? 


025402 


04/045 


047117 


042455 


MSG71: 




025410 


044530 


052123 


042040 






025416 


044522 


042526 


000 




5023 


025423 


045 


042522 


053506 


MSG72: 




025430 


035104 


000040 






5024 


0254 34 


053445 


042524 


051122 


MSG73: 




025442 


020072 


000 






5025 


025445 


045 


042522 


044507 


MSG74: 




025452 


052123 


051105 


051440 






025460 


040524 


052122 


036440 






025466 


000040 








5026 


0254 70 


042526 


052103 


051117 


MSG75: 




025476 


040440 


051104 


020123 






025504 


020075 


000 






5027 


02550 7 


045 


042504 


042522 


M5G76; 




025514 


035126 


000040 






5028 


025520 


042045 


043105 


042127 


MSG77; 




025526 


020072 


000 






5029 


025531 


045 


047516 


026516 


MSG78t 




025536 


042522 


051124 


040531 






025544 


046102 


020105 


051127 






025552 


052111 


020105 


051105 






025560 


04 7522 


035122 


042440 






025566 


020122 


000 






5030 


025571 


045 


047516 


026516 


MSG79; 




025576 


042522 


051124 


040531 






025604 


046102 


020105 


042522 






025612 


042101 


042440 


051122 






025620 


051117 


02007? 


051105 






025626 


000040 








5031 


025630 


042445 


042116 


04 7440 


MSG100 




025636 


020106 


040520 


051523 






025644 


022440 


000 






5032 


02564 7 


045 


025045 


025052 


MSG101 




025654 


025052 


025052 


025052 






025662 


025052 


025052 


025052 






025670 


025052 


025052 


022452 






025676 


000 








5033 


0256 7 7 


101 


052125 


020117 


MSG104 




025/04 


047503 


052116 


037456 






025/12 


000040 








5034 


025/14 


051045 


041505 


05311 7 


MSG105 




025 ^a 


051105 


042105 


000 




5035 


025/27 


052 


040502 


020104 


MSG106 




025734 


040524 


042520 


04/44 






025/42 


042526 


04 3122 


04/514 






025750 


00012 7 








5036 


025 752 


051045 


05 V>05 


04 7U1 


MSG16A 




025760 


020104 


040524 


042520 





MACYll 30(1046) 07 MAR -84 14:21 PAGE 70 3 



ASCI/ /*ERASE/ 

ASCI/ /*RERE7: / 

ASCIZ /TAPE MARK? / 

ASCI/ /rfNON-EXIST DRIVE/ 

ASCI/ /rfRFFWD: / 

ASCI/ /tfUTFRR: / 

ASCIZ /^REGISTER START = / 

ASCI/ /VECTOR ADRS » / 

ASCIZ /*DEREV: / 

ASCI/ /rf^EJ-UD: / 

ASCI/ /rfNON-RETRYABLE WRITE ERROR: ER / 



SEQ 0113 



.ASCI/ /*N0N -RE TRIABLE READ ERROR: ER 



,ASCI/ /KENO OF PASS *<' 

.ASCI/ /**+* * + *** + + + ******** * **/ 

.ASCI/ ''AUTO CONT.? / 

.ASCI/ /*Rt COVFRLO/ 

.ASCI/ /*HAD TAPE OVERFLOW/ 

.ASCI/ 'KKtUIND TAPfc | RtSTART AT BLOCK 1 ' 



c/um-o imo5 

CZTEDE.P11 



Tt 16/ ru.v DRT 

07-MAR-84 14 



04 



MACY11 30C1046) 07 -MAR -84 14:21 PAGL 70-4 



SEQ 0114 



5037 
5038 

5039 

5040 

5041 

5042 



504 3 
5044 

504 b 
5046 

504 7 
5048 



5049 



5050 
5051 



5052 



5053 



025766 
0257 74 
026002 
026010 
026013 
026020 
026026 
026034 
026042 
026050 
026056 
026064 
026072 
0260 74 
026102 
026110 
026116 
026124 
026132 
026140 
026146 
026154 
026160 
026166 
026174 

026201 
026206 

026212 

026220 

026223 
026230 
026236 
026244 
02625? 
026260 
026266 
0262 74 
026302 
026310 
026312 
026314 
026322 
026330 
026336 
026344 
026352 
026360 
026362 
026370 
026376 
026404 
026410 
026416 



020073 
051101 
041040 
030440 
045 
04 7503 
046102 
020104 
041045 
041505 
042514 
020116 
000045 
050052 
047511 
052123 
042522 
051445 
052103 
052040 
051045 
035124 
041040 
050101 
052117 

045 
035124 

020045 
020072 

045 
051040 
051105 
051445 
051040 
044504 
044527 
051505 
040440 
000124 
000134 
051045 
020105 
043040 
046123 
04 7524 
042524 
000045 
044045 
051101 
02012? 
042525 
04 7516 
042526 



042522 
020124 
047514 
000 
047125 
042526 
020105 
050123 
042101 
051117 
052106 
040524 

051517 
020116 
044440 
051124 
051525 
041040 
050101 
050105 
000040 
042101 
020105 
022523 

051440 
000040 

040510 
000 

040510 
040505 
047522 
040514 
053505 
043516 
046114 
040524 
020124 



046505 
046524 
047522 
053101 
041040 
052123 

051101 
020105 
047111 
000045 
051440 
020123 



052123 

052101 
045503 

042522 
040522 
040502 
052117 
051040 
020104 
047440 
042520 

052111 
04 7514 
020116 
000131 
042520 
042101 
000105 
040505 

052040 

050123 

000 



042122 



042122 
020104 
000122 
042526 

047111 
020072 
051040 
052122 
047502 



053117 

050104 
020115 
020105 
020105 
042105 

053504 
053523 
052440 

040514 
042514 



MSG107: .ASCII ^UNRECOVERABLE BAD SPOT/ 



, ASCIZ /*BAD RECORD LEFT ON TAPE*/ 



MSG109: .ASCIZ /^POSITION LOST IN RETRY/ 



MSG110: . ASCIZ /*SUSPECT BAD TAPE/ 



MSG111: .ASCIZ 
MSG112: .ASCIZ 



/*REPEAT: / 

/ BAD TAPE SPOTS*/ 



043117 MSG113: .ASCIZ /* SOFT: / 



MSGU4 
MSG115 
MSG116 



ASCIZ /* HARD: / 



ASCIZ /*HARD READ ERROR/ 



ASCIZ /KSLAVE REWINDING: WILL RESTART AT BOT/ 



MSG118 
MSG120 



ASCIZ /\/ 

ASCIZ /XREMOVfc TMDP FROM SLAVE TO BE TESTED*/ 



MSG121: .ASCIZ /^HARDWARE SWR IN USE*/ 



MSG122: .ASCIZ /NO SLAVES LEFT TO TEST; HALT*/ 



L. c ) 



cznm-.o 


1M05 TE.16/TU7/ 


DR1 


MACY11 


30(1046) 


07 -MAR 


-84 14:21 


CZTEDE, 


Pll 07 -MAR -84 


14;04 












026424 


052106 


052040 


020117 










026432 


042524 


052123 


020072 










026440 


040510 


052114 


000045 








5054 


026446 


040445 


052125 


026517 


MSG123: 


,ASCXZ 


/*AUT0 SEQ: 




026454 


042523 


035121 


052040 










026462 


051505 


020124 


044527 










0264 70 


046114 


051040 


051505 










0264 76 


040524 


052122 


000045 








5055 


026504 


041445 


051117 


042522 


MSG124: 


.ASCIZ 


/^CORRECTED 




026512 


052103 


042105 


050040 










026520 


020105 


040504 


040524 










026526 


042440 


051122 


051117 










026534 


000 












5056 


026535 


040 


000 




SPACE: 


.ASCIZ 


i i 


SOS' 


02653? 


060 


000 




DIGITO: 


.ASCIZ 


•0' 


5058 


026541 


061 


000 




DIGIT1: 


.ASCIZ 


1 r 


5059 
















5060 




026544 








.EVEN 




5061 


026544 


036544 






BUFBEU: 


. =. ♦ 10000 


5062 




000001 








.END 





SEQ 0115 



TEST WILL RESTART*/ 



PE DATA ERROR/ 



5 READ AND WRITE BUFFER AREA 



M9 



CZTfcDKO TM03-TE16/TU77 DRT 
CZTEDE.P11 07-MAR-84 14:04 



MACY11 30C1046) 07 -MAR -84 14; 21 PAGE 71 

CROSS REFERENCE TABLE -- USER SYMBOLS 



SEQ 0116 



AA1$ 

ABLCNT 

ACTLRC 

AM0D1 

AM0D2 

APATS 

AS 

ASEQ 

ASEQCF 

ASEQF 

ASEQX 

ASEQO 

ASEQ1 

ASEQ4 

BA 

BAEtt 

BBC 

BB1S 

BCNT 

BOPP 

BOOO 

BD10 

BD20 

B050 

BD40 

BD50 

BD60 

BD70 

BKSP 

BLCNTR 

BPKP 

BPOO 

BP10 

BP20 

BP30 

BP40 

BP50 

BP60 

BP70 

BTADDR 

BTFLG 

BTOV 

BTOVX 

BTOVO 

BTDV1 

BT0V2 

BT0V5 

BTPRT 

BTPRT1 

HTPT 

BTSTF 

BTUH 

BTOO 

HI 01 

Br 02 

BT03 



005076 
000744 
020356 
021640 
021772 

014436 

000526 
021312 

000746 
000742 
021442 
021342 
021346 
021424 
000514 
020342 
000664 
003112 
000716 
000724 
001414 
001434 
001454 
001474 
001514 
001534 
001554 
001574 
011514 
000662 
000726 
001214 
001234 
001254 
001274 
001314 
001334 
001354 
001374 
001034 
000732 
007104 
007236 
007124 
007134 
007212 
007230 
007240 
00 7 304 
000 736 
000734 
00 7310 
001614 
001720 
002024 
002130 



1890 


18984 
















16140 


1983 


4562* 


4587* 


4596+ 










4161* 


4243 


42954 














4506 


45564 
















4507 


45804 
















3573 


35824 
















15354 


4275 


4276* 














3167 


44874 
















1615* 


4488 


4512 














1516* 


16134 


1883* 


1917* 


1981 


2162 


3127 


3164 


3389 


4509 


45124 
















1919 


2175 


4328 


44934 


4513 










44944 


4511 
















45084 


4526 
















15304 


2303* 


2354* 


2482* 


2503* 


2677* 


2686* 


2904* 


2912* 


4069 


4075* 


4169 


4215 


42894 










15894 


3706* 


3769* 


3773* 


3858* 


3859 


3864 + 


3865* 


3866 


1894 


1896 


19024 














16024 


3953* 


3974* 


3977* 


3982* 


4002* 


4005* 


4009* 


4013* 


16054 


3938* 


3958* 


3985* 


3990* 


3998* 


4000* 


4003 


4007 + 


1641 


174 74 
















1642 


17494 
















1643 


1751.4 
















1644 


17534 
















1645 


17554 
















1646 


17574 
















164 7 


17594 
















1648 


17614 
















2605 


2615 


29/44 














15884 


1950* 


1980* 


1983 


1985* 


2457 


4556* 


4580* 


4653 


16064 


3937* 


3965* 


3984 + 


3989* 


3999* 


4001 + 


4011 


4015* 


1633 


17314 
















1634 


17334 
















1635 


17354 
















1636 


17374 
















1637 


17394 
















1638 


17414 
















1639 


17434 
















1640 


17454 
















16524 


2451 


2552 














16084 


2095 


2101 


2105 


2117* 


2490* 


2514* 






2464 


25134 
















2538 


25444 
















25174 


2561 
















25204 


2536 
















2534 


25374 
















25414 


2543 
















2025 


2119 


25504 














2559 


25614 
















16104 


2451* 


2452 


2454 + 


2455 


2462 


2517 


2533 


2540 


16094 


2024* 


2026* 


2537 












24 72 


25654 
















1652 


1 7694 
















1653 


17714 
















1654 


17734 
















1655 


17 754 

















4324 



2978* 3005+ 4073 



4218 



2552+ 2553 2558 



N9 



cztedeo 


TM03-TE16/TU 


7 7 DRT 


MACY11 


30(1046) 


0/-MAR 


-84 14; 


21 PAGE 


71-1 


CZTEDE. 


Pll 07 -MAR 


■84 14:04 




CROSS REFERENCE 


TABLE - 


- USER SYMBOLS 


BT04 


002234 


1656 


17770 












BTOS 


002340 


1657 


17 790 












or o<s 


002444 


1658 


17810 












BT07 


002550 


1659 


17830 












Riirppr; 


026544 


155? 


1553 


1904 


1905 


50610 






BUKMAX 


000560 


15510 


1895* 


1898 + 


1902 


3050 


3272 


4563 4588 


BO 


011646 


2980 


2986 


2992 


29940 








CADLR 


020340 


2361 + 


2712 + 


2990 + 


4067 + 


4221 


42880 




CC 


000530 


15360 


4148 


4234 


4256 








CCNTR 


011776 


1993 


30490 












CHNFLG 


003146 


191C0+ 


1915 


2173 


4533 








CLLAST 


014620 


3635,7 














CLP 


014730 


3619 


3646 


36540 










Ct.PE 


014754 


3655 


3657 


36610 










CLP2 


015012 


3669 


36730 












CLP5 


015024 


3671 


3674 


36760 










CL.O 


014540 


36180 


3634 












CM 


014566 


3626/? 














CL2 


014610 


3623 


36320 












CL.3 


014672 


36454 


3649 












CONt.R 


020344 


4120* 


4199 


42900 










CRCC 


000574 


1557,7 


3317 


3319 


4269 








CRCER 


020354 


4152* 


4231 


42940 










CRCLRC 


014522 


3403 


3411 


36140 










CRCSV 


020362 


4134* 


4285 


42970 










cs 


000520 


15320 


1966 + 


2002 + 


2003 + 


2245+ 


22*6 + 


3169+ 3176+ 






4271* 


4272* 


4367 + 


4520 + 


4521 + 


4 5c' 3 




CI 


000510 


15280 


2091 + 


2094 + 


2146 + 


2149* 


220 3* 


2204* 2227* 






4110 


4202 


4274* 


427 7 


4 392 + 


4406* 


4522 


DASH 


023/20 


4220 


4237 


4245 


4671 


49490 






DATAO 


D02776 


18480 














DATA1 


003000 


18490 














DATAIO 


003016 


18560 














DATAH 


003020 


18570 














DATA12 


003022 


18580 














DATAIO 


003024 


18590 














DATA14 


003026 


18600 














DATAIO 


003030 


18610 














DAT A3 


003002 


18500 














DATA3 


003004 


18510 














DATA4 


003006 


18520 














DA1A5 


003010 


18530 














DAIA6 


003012 


1854 














DATA7 


003014 


18550 














DATBL 


002774 


184 70 


3410 












DATER1 


001)34 


16^80 


2050 


3790* 










DATR 


014456 


1996 


3393 


35930 










DA TO 


013772 


1848 


34290 












DATOA 


014020 


34350 


3443 


344 7 


3450 








DATOB 


014026 


34360 


3437 












DATOC 


014072 


3441 


3448.'? 












DATOD 


014100 


34510 


3459 












DA TOE 


014110 


34530 


3458 












DAT OF 


014122 


3455 


345 7,'? 












DAT! 


014132 


1849 


34650 












DAT1A 


014136 


34660 


34 75 


3498 


3503 


3552 







SEQ 0117 



3178 3198+ 3199* 4103 
2256* 2261* 3159 3177 



4205 

4101 



H I 



C/TLDI TM05 

c:n.ok .pi; 



H 16 TU.V DRT NACU1 

0/ MAR -84 14:04 



501104b) 0/ MAR -84 14:21 PAGh 71 2 
CROSS REFERENCE TARl E USF.R SYMBOLS 



5EQ 0118 



DAT 10 

DAT 11 

DAT 12 

DAT15 

DAT14 

DAT IS 

DAI. 1 

DAT 5 

DAT5A 

DAT4 

DATS 

DATo 

DAT * 

DB 

DCHK 

DCh.<0 

DFRFV1 

OERF.X 

DfcRt'Xl 

DF.RFI 

DERR 

DERRO 

DERROA 

DF.RROe 

DFRROC 

DERROD 

DERRi 

0E.RR2 

DERR3 
DFRR4 
DERR4A 
DERR4B 
DE RR5 
DERR6 
D^ x 
DK' 
l)*'OA 
0* OAO 
0M3A1 
U> 0A2 

n< oa5 

D* 0A4 
D' OB 
D> 000 
[)f OC 
0> OCO 

m - 0D 

Df Of 

n> or 

D^ 1 

U* 2 

D> 5 
0* 4 

oi(,; f o 
OI'jI f i 



Ol422<v 
014304 
014324 
014346 
0^:»5b 
014406 

014 IV 
014156 
014164 
014202 
014212 
014220 
014226 

00053.: 

015064 

015112 
001174 
0160/0 
016122 
000712 
015470 
015500 
015526 
015554 
015574 
0155 J* 
015620 
015*22 
0156*4 
015656 
015/62 
016024 
016052 
016064 
015466 

015 564 
015260 
015502 
015516 
01534,' 
015546 
015552 
015220 
015242 
015202 
015212 
015166 
015160 
Ol'.lV 
015*76 
015 4 Of. 
01542,' 
015462 
0265 5/ 
02* 54 1 
025504 



1856 


55190 






185/ 


35310 






1858 


55410 






1859 


35510 






1860 


35560 






1861 


35 7^0 






1850 


34/4 






1851 


34 790 






34810 


3492 






1852 


34900 






1853 


349/0 






1854 


35020 






1855 


35070 






1537* 








2 75/ 


2951 


3 7060 




3710 


3 7120 






1/200 


2062 


5792* 




3860 


38 78 


58GO 


3888 


3901 


3904 


3906 


39080 


16000 


$707* 


3783 


3909* 


3776 


38240 






38260 


390 7 






3828 


38520 






3857 


58400 






384 3 


58460 






3845 


384/0 






3850 


58550 






3852 


38540 






385/0 








5825 


3856 


38580 




58/2 


3881 o 






586 7 


388*0 






3892 


38960 






5869 


3890 


38490 




5 784 


3/86 


5>91 


3/950 


5 7 32 


37/10 


5/80 




5/42 


3/440 


5 781 




3/48 


3 /5o<> 






3/55 


3/550 






3/58 


3/600 






3/6 5 


5/650 






3/45 


3 76/0 






5/550 








5/56 


5/540 






5 725 


3 /290 






5/15 


3/1/ 


3719 


3/310 


5/21 


3/260 






5/2 5o 


3 /28 






5/200 


5/24 






5/68 


3 / 72 


3//50 




5/70 


3//4 


5/7/0 




5//8 


5/H20 






5/89 


5/920 






4854 


4 401 


MiS/O 




4844 


50580 






584/ 


3854 


4895.7 


4908 



5895 



5898 



39000 



4 4 M0 



M10 



CZTEDEO TMOS 
C/TEDE,P11 



TU6/IU7 7 DRT 
07 -MAR -84 14:04 



MACYH 30(1046) 07 -MAR -84 14:21 PAGE 72 

CROSS REFERENCE TABLE -- MACRO NAMES 



5EQ 0129 



SCHAIN 
$RESTO 

ssave- 

, SACT1 
,$E0P 



15650 
13654 
1565# 
1365* 
1365* 



1910 
4717 
4716 
1485 
2172 



. AtfS. 036544 



000 



ERRORS DETECTED; 

CZTEDE.BIN.CZTEDE.LST/CRF/NL:T0C<ZTEAE.SML/ML,C2TEDE.Pll 
RUN -TIME: 5 10 1 SECONDS 
RUN TIME RATIO: 46/17*2.6 
CORE USED: 14K (28 PAGES) 



CZTE0E.P1 
CZTEDE, Pi 
CZTEDE, PI 
CZTEDE, PI 
CZTEDE, PI 
CZTEDE. PI 
CZTEDE, »1 
CZTEDE. PI 
CZTEDE. PI 
CZTEDE, PI 
CZTEDE, Pi 
CZTEDE.P1 
CZTEDE.P1 



CZTEDE. PI 
CZTEDE. PI 
CZTEDE, PI 
CZTtDE.Pl 
CZTEDE. PI 
CZTEDE. PI 
CZTEDE. PI 
CZTEOE.P1 
CZTEDE. Pi 
CZTEDE. PI 
CZTED6.P1 
CZTEDE. PI 
CZTEDE. Pi 



CZTEDE.P1 
CZTEDE. Pi 
CZTEDE. PI 
CZTEDE.P1 
CZTEDE. Pi 
CZTEOE.P1 
CZTEDE. PI 
CZTEDE.P1 
t7TFDF.Pl 
LZTLOt.Pl 
CZTEDt.Pl 
CZTEDE.P1 
CZTEDE. PI 



CZTEDE. PI 
CZTEDE. Pi 
CZTEOE.P1 
CZTEOE.P1 
CZTEOE.P1 
CZTEDE.P1 
CZTEDE. Pi 
CZTE06.P1 
CZTEDE. PI 
CZTEDE. PI 
CZTEDE. PI 
CZTEOE.P1 
CZTEDE. Pi 



07-MAR Bl 

07-MAR,.., CI 

07-MAR 01 

07-MAR El 

07-HAR H 

07-MAR.,.. Gl 

07-MAR HI 

07-MAR II 

07-MAR Jl 

07-MAR Kl 

07-MAR LI 

07-MAR Ml 

07-MAR,.,. Nl 



07-MAR, 
07-MAR, 
07-MAR, 
07-MAR. 
07-MAR. 
07-MAR, 
07-MAR. 
C7-MAR. 
07-MAR. 
07-MAR. 
07 MAR, 
07-MAR. 
07-MAR. 



07-MAR. 
07-MAR. 
07-MAR. 
07-MAR. 
07-MAR. 
07-MAR. 
07-MAR. 
07-MAR. 
07-MAR. 
07-MAR. 
07 MAR, 
07-MAR. 



,,.B2 
...C2 
.,,02 
, ,.E2 

. . .F2 
...G2 

...12 
, ..J2 
. ..K2 
...L2 
...M2 
...N2 



.83 

,C3 
.03 
.E3 
.F3 

,G3 
,H3 
.13 

,J3 
,K3 

.13 
.M3 



07-MAR..,. N3 



07-MAR.. 
07-MAR.. 
07-MAR.. 
07-MAR.. 
07-MAR,. 
07-MAR.. 
07-MAR.. 
07-MAR.. 
07-MAR.. 
07-MAP.. 
07-MAR.. 
07-MAR.. 
07-MAR,. 



..B4 

. .C4 
..04 
. .E4 
. .F4 
,.G4 
. .M4 
.,14 
. . J4 
. .K4 
. .L4 
..M4 
«.N4 



CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 



CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 



CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 



CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 
CZTEDE 



.Pll 
.Pll 
,P11 
.Pll 
.Pll 
.Pll 
.Pll 
.Pll 
.Pll 
.Pll 
.Pll 
.Pll 
.Pll 



.Pll 
.Pll 
.Pll 
.Pll 
.Pll 
.Pll 
.Pll 
.Pll 
.Pll 
.Pll 
.Pll 
.Pll 
.Pll 



.Pii 
.pii 
,pii 
.pii 
.pii 
.pii 
.pii 
.pii 
.pii 
.pii 
.pii 
.pii 
.pii 



.pii 
.pii 
.pii 
,pii 
.pii 
.pii 
.pii 
.pii 
.pii 
.pii 
.pii 
.pii 
,pii 



07-MAR. 
07-MAR. 
07-MAR. 
07-MAR. 
07-MAR. 
07-MAR, 
07-MAR. 
07-MAR. 
07-MAR. 
07-MAR, 
07-MAR. 
07-MAR. 
07-MAR. 



07-MAR. 
07-MAR. 
07-MAR. 
07-MAR. 
07-MAR. 
07-MAR, 
07-MAR. 
07-MAR, 
07-MAR. 
07-MAR. 
07-MAR. 
07-MAR. 
07-MAR. 



. ..B5 
. ,.C5 
...05 
. ,.E5 
. ,.F5 
...G5 
. ..H5 
...15 
. ,.J5 
. ..K5 
. ,.L5 
♦ , ,M5 
...N5 



. ,.B6 
. ..C6 
..,06 
. ..E6 
. ..F6 
...G6 
» • . Ho 
...16 

. . . fcJ6 

. ..K6 
. ..L6 
. . . M6 
» ♦ ,N6 



07-MAR,, 
07-MAR.. 
07-MAR,, 
07-MAR.. 
07-MAR.. 
07-MAR.. 
07-MAR.. 
07-MAR.. 
07-MAR., 
07-MAR.. 
07-MAR. . 
07-MAR. . 
07-MAR., 



..B7 
. ,C7 
. ,D7 
. .E7 
..F7 
. .G7 
. .H7 
..17 
. ,J7 
. .K7 
. .L7 
. .M7 
. .N7 



07-MAR. 
07-MAR. 
07-MAR. 
07-MAR. 
07-MAR. 
07-MAR. 
07-MAR. 
07-MAR. 
07-MAR. 
07-MAR. 
07-MAR. 
07-MAR. 
07 -MAR ♦ 



. ..B8 
. ..C8 
. ,.D8 
. ..E8 
. ..F8 
. ,.G8 
. ,.H^ 
...18 

18 

. ..K6 
. ..L8 
. ..M8 
»..N8 



CZTEDE. Pll 


07-MAR. . 


..69 


CZTEDE. Pxl 


07-MAR.. 


..C9 


CZTEDE. Pll 


07-MAR.. 


..09 


CZTEDE. Fll 


07-MAR.. 


..E9 


CZTEDE. Pll 


07-MAR.. 


,.F9 


CZTEDE. Pll 


07-MAR. . 


..G9 


CZTEDE. Pll 


07-MAR.. 


,.H9 


CZTEDE. Pll 


07-MAR.. 


..19 


CZTEDE. Pll 


07-MAR. . 


, .J9 


CZTEDE. Pll 


07-MAR. . 


..K9 


CZTEDE. Pll 


07-MAR.. 


. ,L9 


CZTEDE. Pll 


07-MAR.. 


,.M9 


CZTEDE. Pll 


07-MAR.. 


..N9 


CZTEDE. Pll 


07-MAR.. 


..BIO 


CZTEDE. Pll 


07-MAR. . 


..CIO 


CZTEDE. Pll 


07-MAR. . 


..D10 


CZTEDE. Pll 


07-MAR.. 


,.E10 


CZTEDE. Pll 


07-MAR.. 


..FIO 


CZTEDE. Pll 


07-MAR. . 


..G10 


CZTEDE. Pll 


07-MAR.. 


..H10 


CZTEDE. Pll 


07-MAR. . 


. .110 


CZTEDE. Pll 


07-MAR.. 


..J10 


CZTEDE, Pll 


07-MAR. . 


..K10 


CZTEDE. Pll 


07-MAR.. 


..L10 


CZTEDE. Pll 


07-MAR*, 


♦ ,M10 



